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

vocabs.parser: a couple of fixes

db4
Slava Pestov 2010-01-27 23:20:17 +13:00
parent 0fa425b03a
commit 73cbf46760
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/vocabs/parser/parser.factor
View File

@ -86,8 +86,7 @@ PRIVATE>
: set-current-vocab ( name -- ) : set-current-vocab ( name -- )
create-vocab create-vocab
[ manifest get (>>current-vocab) ] [ manifest get (>>current-vocab) ] [ (add-qualified) ] bi ;
[ words>> <extra-words> (add-qualified) ] bi ;
: with-current-vocab ( name quot -- ) : with-current-vocab ( name quot -- )
manifest get clone manifest [ manifest get clone manifest [
@ -242,8 +241,10 @@ PRIVATE>
: with-manifest ( quot -- ) : with-manifest ( quot -- )
<manifest> manifest [ <manifest> manifest [
[ manifest get add-definition-observer call ] [ call ] [
[ manifest get remove-definition-observer ] [ manifest get add-definition-observer call ]
[ ] [ manifest get remove-definition-observer ]
cleanup [ ]
cleanup
] if-bootstrapping
] with-variable ; inline ] with-variable ; inline