steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/vocabs/vocabs.factor
View File

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