minor fixes in sorting

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"

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 ;