2008-06-30 11:35:09 -04:00
|
|
|
|
|
|
|
|
USING: kernel combinators sequences macros fry newfx combinators.cleave ;
|
|
|
|
|
|
|
|
|
|
IN: combinators.conditional
|
|
|
|
|
|
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
2008-09-10 23:11:40 -04:00
|
|
|
MACRO: 1if ( test then else -- ) '[ dup @ _ _ if ] ;
|
2008-06-30 11:35:09 -04:00
|
|
|
|
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
|
|
|
|
MACRO: 1cond ( tbl -- )
|
|
|
|
|
[ [ 1st [ dup ] prepend ] [ 2nd ] bi {2} ] map
|
|
|
|
|
[ cond ] prefix-on ;
|
|
|
|
|
|
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
