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

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
extra/combinators/lib

2
extra/combinators/lib/lib.factor
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