 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: `{ \ } [ >array ] parse-literal \ bake parsed ; parsing+: `{ \ } [ >array ] parse-literal \ bake parsed ; parsing
+

: bake-item ( item -- )
  { { [ dup \ , = ]        [ drop , ] }
    { [ dup \ % = ] 	   [ drop % ] }
    { [ dup insert-quot? ] [ insert-quot-expr call , ] }
    { [ dup splice-quot? ] [ splice-quot-expr call % ] }
    { [ dup integer? ]     [ , ] }


! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: ,u ( seq -- seq ) unclip building get push ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

SYMBOL: exemplar

: reset-building ( -- ) 1024 <vector> building set ;
