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

remove combinators that nobody uses

db4
Doug Coleman 2008-12-07 17:21:15 -06:00
parent 9ec5896a3a
commit ad4729712c
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -116,18 +116,9 @@ MACRO: construct-slots ( assoc tuple-class -- tuple )
[ 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 keep swap [ r> drop ] [ r> call ] ?if ; inline
: 2quot-with ( obj seq quot1 quot2 -- seq quot1 quot2 ) : 2quot-with ( obj seq quot1 quot2 -- seq quot1 quot2 )
>r pick >r with r> r> swapd with ; >r pick >r with r> r> swapd with ;
: or? ( obj quot1 quot2 -- ? )
[ keep ] dip rot [ 2nip ] [ call ] if* ; inline
: and? ( obj quot1 quot2 -- ? )
[ keep ] dip rot [ call ] [ 2drop f ] if ; inline
MACRO: multikeep ( word out-indexes -- ... ) MACRO: multikeep ( word out-indexes -- ... )
[ [
dup >r [ \ npick \ >r 3array % ] each dup >r [ \ npick \ >r 3array % ] each