vocabs: faster check-vocab-name.
parent
2900fb9361
commit
28377f49e7
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue