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

bake: handle integers before sequences

db4
Eduardo Cavazos 2008-07-02 12:09:03 -05:00
parent 9a361344cd
commit a45d8a6409
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/bake/bake.factor
View File

@ -1,5 +1,6 @@
USING: kernel parser namespaces sequences quotations arrays vectors splitting USING: kernel parser namespaces sequences quotations arrays vectors splitting
math
macros arrays.lib combinators.lib combinators.conditional newfx ; macros arrays.lib combinators.lib combinators.conditional newfx ;
IN: bake IN: bake
@ -19,6 +20,7 @@ DEFER: [bake]
: broil-element ( obj -- quot ) : broil-element ( obj -- quot )
{ {
{ [ comma? ] [ drop [ >r ] ] } { [ comma? ] [ drop [ >r ] ] }
{ [ integer? ] [ [ >r ] prefix-on ] }
{ [ sequence? ] [ [bake] [ >r ] append ] } { [ sequence? ] [ [bake] [ >r ] append ] }
{ [ drop t ] [ [ >r ] prefix-on ] } { [ drop t ] [ [ >r ] prefix-on ] }
} }