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

IN: <EOL> fep

slava 2006-08-26 21:13:08 +00:00
parent 41980244a4
commit a0aca0e63e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
library/syntax/early-parser.factor
View File

@ -27,7 +27,10 @@ TUPLE: check-vocab name ;
: set-use ( seq -- ) : set-use ( seq -- )
[ check-vocab ] map [ ] subset >vector use set ; [ check-vocab ] map [ ] subset >vector use set ;
: set-in ( name -- ) dup ensure-vocab dup in set use+ ; : set-in ( name -- )
dup string?
[ "Vocabulary name must be a string" throw ] unless
dup ensure-vocab dup in set use+ ;
: parsing? ( obj -- ? ) : parsing? ( obj -- ? )
dup word? [ "parsing" word-prop ] [ drop f ] if ; dup word? [ "parsing" word-prop ] [ drop f ] if ;