From 8dd67e07415ff698a48e8967e23a8752d940e2bc Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 9 Jul 2015 11:02:09 -0700
Subject: [PATCH] tools.scaffold: use vocabs:check-vocab-name.

---
 basis/tools/scaffold/scaffold.factor | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index ac3519fa7e..b77ee34f8f 100644
--- a/basis/tools/scaffold/scaffold.factor
+++ b/basis/tools/scaffold/scaffold.factor
@@ -14,8 +14,6 @@ SYMBOL: developer-name
 SYMBOL: using
 
 ERROR: not-a-vocab-root string ;
-ERROR: vocab-name-contains-separator path ;
-ERROR: vocab-name-contains-dot path ;
 
 <PRIVATE
 
@@ -30,11 +28,6 @@ ERROR: vocab-name-contains-dot path ;
 : ensure-vocab-exists ( string -- string )
     dup loaded-vocab-names member? [ no-vocab ] unless ;
 
-: check-vocab-name ( string -- string )
-    [ ]
-    [ contains-dot? [ vocab-name-contains-dot ] when ]
-    [ contains-separator? [ vocab-name-contains-separator ] when ] tri ;
-
 : check-root ( string -- string )
     dup vocab-root? [ not-a-vocab-root ] unless ;
 
@@ -289,7 +282,7 @@ PRIVATE>
     [ "platforms.txt" ] dip scaffold-metadata ;
 
 : scaffold-vocab ( vocab-root string -- )
-    check-vocab-name {
+    {
         [ scaffold-directory ]
         [ scaffold-main ]
         [ nip require ]