vocabs: faster check-vocab-name.

db4
John Benediktsson 2012-07-15 14:21:25 -07:00
parent 2900fb9361
commit 28377f49e7
1 changed files with 1 additions and 1 deletions

View File

@ -25,7 +25,7 @@ ERROR: bad-vocab-name name ;
: check-vocab-name ( name -- name )
dup string? [ bad-vocab-name ] unless
dup ":/\\ " intersects? [ bad-vocab-name ] when ;
dup [ ":/\\ " member? ] any? [ bad-vocab-name ] when ;
TUPLE: vocab-link name ;