bake: handle integers before sequences

2008-07-02 12:09:03 -05:00 · 2008-07-02 12:09:03 -05:00 · a45d8a6409
parent 9a361344cd
commit a45d8a6409
1 changed files with 2 additions and 0 deletions
--- a/extra/bake/bake.factor
+++ b/extra/bake/bake.factor
@ -1,5 +1,6 @@

 USING: kernel parser namespaces sequences quotations arrays vectors splitting
+       math
       macros arrays.lib combinators.lib combinators.conditional newfx ;

 IN: bake
@ -19,6 +20,7 @@ DEFER: [bake]
 : broil-element ( obj -- quot )
    {
      { [ comma?    ] [ drop [ >r ]          ] }
+      { [ integer?  ] [ [ >r ] prefix-on     ] }
      { [ sequence? ] [ [bake] [ >r ] append ] }
      { [ drop t    ] [ [ >r ] prefix-on     ] }
    }