math.order: Removing stack effect (not quite right).
parent
ac8b589f9a
commit
cce00c2651
|
|
@ -45,4 +45,4 @@ M: object max [ after? ] most ; inline
|
||||||
|
|
||||||
: [-] ( x y -- z ) - 0 max ; inline
|
: [-] ( x y -- z ) - 0 max ; inline
|
||||||
|
|
||||||
: compare ( obj1 obj2 quot: ( obj -- newobj ) -- <=> ) bi@ <=> ; inline
|
: compare ( obj1 obj2 quot -- <=> ) bi@ <=> ; inline
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue