 : constructor ( seq -- quot )
     {
       { [ array? ]     [ length [ narray ] prefix-on ] }
-      { [ quotation? ] [ length [ ncurry ] prefix-on [ ] prefix ] }
-      { [ vector? ]    [ length [ narray >vector ] prefix-on ] }
+!      { [ quotation? ] [ length [ ncurry ] prefix-on [ ] prefix ] }
+      { [ quotation? ] [ length [ narray >quotation ] prefix-on ] }
+      { [ vector? ]    [ length [ narray >vector    ] prefix-on ] }
     }
   1cond ;
 

      { [ comma?    ] [ drop [ >r ]          ] }
      { [ integer?  ] [ [ >r ] prefix-on     ] }
      { [ sequence? ] [ [bake] [ >r ] append ] }
      { [ drop t    ] [ [ >r ] prefix-on     ] }
    }
  1cond ;


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

IN: bake
