Changing combinators.lib

2008-01-09 13:44:58 -06:00 · 2008-01-09 13:44:58 -06:00 · e4de6fd8af
parent d1aba5effe
commit e4de6fd8af
1 changed files with 3 additions and 0 deletions
--- a/extra/combinators/lib/lib.factor
+++ b/extra/combinators/lib/lib.factor
@ -166,3 +166,6 @@ MACRO: construct-slots ( assoc tuple-class -- tuple )
    [ construct-empty ] curry swap [
        [ dip ] curry swap 1quotation [ keep ] curry compose
    ] { } assoc>map concat compose ;
+
+: either ( object first second -- ? )
+    >r over slip swap [ r> drop ] [ r> call ] ?if ; inline