Add `{ parsing word to bake
parent
71f072fa95
commit
76146310db
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
USING: kernel parser namespaces quotations vectors strings
|
USING: kernel parser namespaces quotations arrays vectors strings
|
||||||
sequences assocs tuples math combinators ;
|
sequences assocs tuples math combinators ;
|
||||||
|
|
||||||
IN: bake
|
IN: bake
|
||||||
|
@ -49,3 +49,7 @@ DEFER: bake
|
||||||
|
|
||||||
: bake ( seq -- seq )
|
: bake ( seq -- seq )
|
||||||
[ reset-building save-exemplar bake-items finish-baking ] with-scope ;
|
[ reset-building save-exemplar bake-items finish-baking ] with-scope ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: `{ \ } [ >array ] parse-literal \ bake parsed ; parsing
|
Loading…
Reference in New Issue