diff --git a/basis/sorting/human/human.factor b/basis/sorting/human/human.factor index 3789d2a771..b5048e45b0 100644 --- 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 ; -: ( obj -- hybrid ) +: ( obj -- alphanum ) alphanum new swap >>obj ; inline -: ( obj -- hybrid ) +: ( obj -- alphanum ) alphanum new swap dup string? [ w/collation-key ] when >>obj ; inline