minor fixes in sorting

diff --git a/basis/sorting/slots/slots-docs.factor b/basis/sorting/slots/slots-docs.factor
index b427cf2956b45b227dd4a998c22dc7efdf0c8c6a..24c27eb00c15f95e6b2c9b4934b585f8458ad33e 100644 (file)
--- a/basis/sorting/slots/slots-docs.factor
+++ b/basis/sorting/slots/slots-docs.factor
@@ -18,7 +18,7 @@ HELP: sort-by-slots
 }
 { $description "Sorts a sequence of tuples by the sort-specs in " { $snippet "sort-spec" } ". A sort-spec is a sequence of slot accessors ending in a comparator." }
 { $examples
-    "Sort by slot c, then b descending:"
+    "Sort by slot a, then b descending:"
     { $example
         "USING: accessors math.order prettyprint sorting.slots ;"
         "IN: scratchpad"

diff --git a/basis/sorting/slots/slots.factor b/basis/sorting/slots/slots.factor
index 5fbf3d7af9153d9dfb1728b3ba24bd5c892d9962..d3d7f47f99ab95f4184e377a314fa62ace0fe2d3 100644 (file)
--- a/basis/sorting/slots/slots.factor
+++ b/basis/sorting/slots/slots.factor
@@ -7,7 +7,7 @@ IN: sorting.slots
 
 <PRIVATE
 
-: short-circuit-comparator ( obj1 obj2 word --  comparator/? )
+: short-circuit-comparator ( obj1 obj2 word -- comparator/? )
     execute( obj1 obj2 -- obj3 )
     dup +eq+ eq? [ drop f ] when ;