steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hybrid -> alphanum in stack effects

db4
Doug Coleman 2011-10-02 11:59:38 -07:00
parent 2a234bec02
commit 2fc44d7027
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/sorting/human/human.factor
View File

@ -27,11 +27,11 @@ IN: sorting.human
! For comparing integers or sequences ! For comparing integers or sequences
TUPLE: alphanum obj ; TUPLE: alphanum obj ;
: <alphanum> ( obj -- hybrid ) : <alphanum> ( obj -- alphanum )
alphanum new alphanum new
swap >>obj ; inline swap >>obj ; inline
: <alphanum-insensitive> ( obj -- hybrid ) : <alphanum-insensitive> ( obj -- alphanum )
alphanum new alphanum new
swap dup string? [ w/collation-key ] when >>obj ; inline swap dup string? [ w/collation-key ] when >>obj ; inline