db4
Doug Coleman 2008-04-28 15:17:47 -05:00
parent 4b3fd628a7
commit 594d57d5cc
1 changed files with 1 additions and 1 deletions

View File

@ -40,4 +40,4 @@ M: real after=? ( obj1 obj2 -- ? ) >= ;
: [-] ( x y -- z ) - 0 max ; inline
: compare ( obj1 obj2 quot -- n ) bi@ <=> ; inline
: compare ( obj1 obj2 quot -- symbol ) bi@ <=> ; inline