18 lines
478 B
Factor
18 lines
478 B
Factor
|
|
||
|
|
USING: kernel combinators sequences macros fry newfx combinators.cleave ;
|
||
|
|
|
||
|
|
IN: combinators.conditional
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
MACRO: 1if ( test then else -- ) '[ dup @ , , if ] ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
MACRO: 1cond ( tbl -- )
|
||
|
|
[ [ 1st [ dup ] prepend ] [ 2nd ] bi {2} ] map
|
||
|
|
[ cond ] prefix-on ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|