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

bake: Minor changes

db4
Eduardo Cavazos 2008-07-04 15:01:03 -05:00
parent 94756c189e
commit b1928f6b43
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/bake/bake.factor
View File

@ -1,6 +1,6 @@
USING: kernel parser namespaces sequences quotations arrays vectors splitting USING: kernel parser namespaces sequences quotations arrays vectors splitting
math words math
macros arrays.lib combinators.lib combinators.conditional newfx ; macros arrays.lib combinators.lib combinators.conditional newfx ;
IN: bake IN: bake
@ -22,6 +22,7 @@ DEFER: [bake]
{ [ comma? ] [ drop [ >r ] ] } { [ comma? ] [ drop [ >r ] ] }
{ [ integer? ] [ [ >r ] prefix-on ] } { [ integer? ] [ [ >r ] prefix-on ] }
{ [ sequence? ] [ [bake] [ >r ] append ] } { [ sequence? ] [ [bake] [ >r ] append ] }
{ [ word? ] [ literalize [ >r ] prefix-on ] }
{ [ drop t ] [ [ >r ] prefix-on ] } { [ drop t ] [ [ >r ] prefix-on ] }
} }
1cond ; 1cond ;
@ -31,8 +32,9 @@ DEFER: [bake]
: constructor ( seq -- quot ) : constructor ( seq -- quot )
{ {
{ [ array? ] [ length [ narray ] prefix-on ] } { [ array? ] [ length [ narray ] prefix-on ] }
{ [ quotation? ] [ length [ ncurry ] prefix-on [ ] prefix ] } ! { [ quotation? ] [ length [ ncurry ] prefix-on [ ] prefix ] }
{ [ vector? ] [ length [ narray >vector ] prefix-on ] } { [ quotation? ] [ length [ narray >quotation ] prefix-on ] }
{ [ vector? ] [ length [ narray >vector ] prefix-on ] }
} }
1cond ; 1cond ;
@ -90,4 +92,3 @@ MACRO: bake ( seq -- quot ) [bake] ;
: `{ \ } [ >array ] parse-literal \ bake parsed ; parsing : `{ \ } [ >array ] parse-literal \ bake parsed ; parsing
: `V{ \ } [ >vector ] parse-literal \ bake parsed ; parsing : `V{ \ } [ >vector ] parse-literal \ bake parsed ; parsing
: `[ \ ] [ >quotation ] parse-literal \ bake parsed ; parsing