Merge pull request #1493 from perl6/1490-fix

Document `with` of `squish`

Author: AlexDaniel

doc/Type/List.pod6

@@ -745,8 +745,8 @@ Examples:
 
 Defined as:
 
-    multi sub    squish(*@values, :&as --> Seq:D)
-    multi method squish(List:D:  :&as --> Seq:D)
+    multi sub    squish(*@values, :&as, :&with --> Seq:D)
+    multi method squish(List:D:   :&as, :&with --> Seq:D)
 
 Returns a sequence of values from the invocant/argument list where runs
 of more than one value are replaced with only the first instance.
@@ -764,6 +764,13 @@ Examples:
 The optional C<:as> parameter, just like with L<C<unique>>, allows values to be
 temporarily transformed before comparison.
 
+The optional C<:with> parameter is used to set an appropriate comparsion operator:
+
+    say [42, "42"].squish;                      # OUTPUT: «(42 42)␤»
+    # Note that the second item in the result is still Str
+    say [42, “42”].squish(with => &infix:<eq>); # OUTPUT: «(42)␤»
+    # The resulting item is Int
+
 =head2 routine reduce
 
 Defined as: