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

Changing combinators.lib

db4
Daniel Ehrenberg 2008-01-09 13:44:58 -06:00
parent d1aba5effe
commit e4de6fd8af
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/combinators/lib/lib.factor
View File

@ -166,3 +166,6 @@ MACRO: construct-slots ( assoc tuple-class -- tuple )
[ construct-empty ] curry swap [ [ construct-empty ] curry swap [
[ dip ] curry swap 1quotation [ keep ] curry compose [ dip ] curry swap 1quotation [ keep ] curry compose
] { } assoc>map concat compose ; ] { } assoc>map concat compose ;
: either ( object first second -- ? )
>r over slip swap [ r> drop ] [ r> call ] ?if ; inline