From a0aca0e63ea8dce5723e758a9ac82142c2b8e606 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sat, 26 Aug 2006 21:13:08 +0000
Subject: [PATCH] IN: <EOL> fep

---
 library/syntax/early-parser.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/library/syntax/early-parser.factor b/library/syntax/early-parser.factor
index 25721ea2e0..82c49f373c 100644
--- 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 ;