hybrid -> alphanum in stack effects

2011-10-02 11:59:38 -07:00 · 2011-10-02 11:59:38 -07:00 · 2fc44d7027
parent 2a234bec02
commit 2fc44d7027
1 changed files with 2 additions and 2 deletions
--- a/basis/sorting/human/human.factor
+++ b/basis/sorting/human/human.factor
@ -27,11 +27,11 @@ IN: sorting.human
 ! For comparing integers or sequences
 TUPLE: alphanum obj ;

-: <alphanum> ( obj -- hybrid )
+: <alphanum> ( obj -- alphanum )
    alphanum new
        swap >>obj ; inline

-: <alphanum-insensitive> ( obj -- hybrid )
+: <alphanum-insensitive> ( obj -- alphanum )
    alphanum new
        swap dup string? [ w/collation-key ] when >>obj ; inline