IN: <EOL> fep

2006-08-26 21:13:08 +00:00 · 2006-08-26 21:13:08 +00:00 · a0aca0e63e
parent 41980244a4
commit a0aca0e63e
1 changed files with 4 additions and 1 deletions
--- a/library/syntax/early-parser.factor
+++ b/library/syntax/early-parser.factor
@ -27,7 +27,10 @@ TUPLE: check-vocab name ;
 : set-use ( seq -- )
    [ 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 -- ? )
    dup word? [ "parsing" word-prop ] [ drop f ] if ;