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

bake: use combinators.conditional

db4
Eduardo Cavazos 2008-06-30 10:36:13 -05:00
parent 46fc50af37
commit 09fb8d878b
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/bake/bake.factor
View File

@ -1,17 +1,11 @@
USING: kernel parser combinators sequences splitting quotations arrays macros USING: kernel parser combinators sequences splitting quotations arrays macros
arrays.lib combinators.cleave newfx dns.util ; arrays.lib combinators.cleave combinators.conditional newfx ;
IN: bake IN: bake
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MACRO: 1cond ( tbl -- )
[ [ 1st [ dup ] prepend ] [ 2nd ] bi {2} ] map
[ cond ] prefix-on ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SYMBOL: , SYMBOL: ,
SYMBOL: @ SYMBOL: @