change over slip -> keep

db4
Doug Coleman 2008-01-11 11:04:26 -10:00
parent ff1ee9e874
commit 824c696e96
1 changed files with 1 additions and 1 deletions

View File

@ -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