diff --git a/basis/sorting/human/human-docs.factor b/basis/sorting/human/human-docs.factor index 0f0bf169e6..b3657b60a2 100644 --- 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 8f3b47dc3d..ceef6f2a15 100644 --- 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