steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/bake/bake.factor
View File

@ -1,6 +1,6 @@
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
@ -48,4 +48,8 @@ DEFER: bake
: bake-items ( seq -- ) [ bake-item ] each ; : bake-items ( seq -- ) [ bake-item ] each ;
: 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