From c1d1fe9b2079c1033f40b869699477eef273dbcc Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Sat, 18 Apr 2009 13:44:20 -0500
Subject: [PATCH] minor fixes in sorting

---
 basis/sorting/slots/slots-docs.factor | 2 +-
 basis/sorting/slots/slots.factor      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/sorting/slots/slots-docs.factor b/basis/sorting/slots/slots-docs.factor
index b427cf2956..24c27eb00c 100644
--- 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 5fbf3d7af9..d3d7f47f99 100644
--- 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 ;