change over slip -> keep
parent
ff1ee9e874
commit
824c696e96
|
@ -190,4 +190,4 @@ MACRO: construct-slots ( assoc tuple-class -- tuple )
|
|||
] { } assoc>map concat compose ;
|
||||
|
||||
: either ( object first second -- ? )
|
||||
>r over slip swap [ r> drop ] [ r> call ] ?if ; inline
|
||||
>r keep swap [ r> drop ] [ r> call ] ?if ; inline
|
||||
|
|
Loading…
Reference in New Issue