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

trivial factoring

Doug Coleman 2009-08-17 18:59:03 -05:00
parent b239c3b605
commit 45c0ef9a51
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/sorting/functor/functor.factor
View File

@ -10,7 +10,7 @@ NAME>=< DEFINES ${NAME}>=<
WHERE WHERE
: NAME<=> ( obj1 obj2 -- <=> ) QUOT bi@ <=> ; : NAME<=> ( obj1 obj2 -- <=> ) QUOT compare ;
: NAME>=< ( obj1 obj2 -- >=< ) NAME<=> invert-comparison ; : NAME>=< ( obj1 obj2 -- >=< ) NAME<=> invert-comparison ;
;FUNCTOR ;FUNCTOR