Fix sorting.human docs

diff --git a/basis/sorting/human/human-docs.factor b/basis/sorting/human/human-docs.factor
index 0f0bf169e653a26bab0061f528acb8367b462a75..b3657b60a2f8431261040851eb68de49a901a3c9 100644 (file)
--- a/basis/sorting/human/human-docs.factor
+++ b/basis/sorting/human/human-docs.factor
@@ -6,8 +6,8 @@ IN: sorting.human
 
 HELP: find-numbers
 { $values
-     { "string" string }
-     { "seq" sequence }
+     { "sequence" sequence }
+     { "sequence'" sequence }
 }
 { $description "Splits a string on numbers and returns a sequence of sequences and integers." } ;
 

diff --git a/basis/sorting/human/human.factor b/basis/sorting/human/human.factor
index 8f3b47dc3dc47d641596ae08621884c32946fabf..ceef6f2a153dd580f139592a222169094dc0e22d 100644 (file)
--- a/basis/sorting/human/human.factor
+++ b/basis/sorting/human/human.factor
@@ -5,13 +5,13 @@ sequences sorting.functor strings unicode.case
 unicode.categories unicode.collation ;
 IN: sorting.human
 
-: cut-find ( seq pred -- before after )
+: cut-find ( sequence pred -- before after )
     [ drop ] [ find drop ] 2bi dup [ cut ] when ; inline
 
-: cut3 ( seq pred -- first mid last )
+: cut3 ( sequence pred -- first mid last )
     [ cut-find ] keep [ not ] compose cut-find ; inline
 
-: find-sequences ( sequence pred quot -- seq )
+: find-sequences ( sequence pred quot -- sequences )
     '[
         [
             _ cut3 [
@@ -21,7 +21,7 @@ IN: sorting.human
         ] loop drop
     ] { } make ; inline
 
-: find-numbers ( seq -- newseq )
+: find-numbers ( sequence -- sequence' )
     [ digit? ] [ string>number ] find-sequences ;
 
 ! For comparing integers or sequences