From 2fc44d7027b22dbdbb62184cf58f83bb167d1feb Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 2 Oct 2011 11:59:38 -0700 Subject: [PATCH] hybrid -> alphanum in stack effects --- basis/sorting/human/human.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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