Add `{ parsing word to bake

release
Eduardo Cavazos 2007-11-20 01:57:22 -06:00
parent 71f072fa95
commit 76146310db
1 changed files with 7 additions and 3 deletions

View File

@ -1,6 +1,6 @@
USING: kernel parser namespaces quotations vectors strings
sequences assocs tuples math combinators ;
USING: kernel parser namespaces quotations arrays vectors strings
sequences assocs tuples math combinators ;
IN: bake
@ -49,3 +49,7 @@ DEFER: bake
: bake ( seq -- seq )
[ reset-building save-exemplar bake-items finish-baking ] with-scope ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: `{ \ } [ >array ] parse-literal \ bake parsed ; parsing