vocabs: oops fix valid-vocab-name?

[factor.git] / core / vocabs / vocabs.factor

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 8e78f7c6788ef8ae3e95ae7728d22dfbf5b566f9..79575216ad69aab8491307069db7862b1c6a2f8d 100644 (file)
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -22,7 +22,7 @@ SYMBOLS: +parsing+ +done+ ;
 <PRIVATE
 
 : valid-vocab-name? ( name -- ? )
-    dup string? [ [ ":/\\ \"" member? ] none? ] [ f ] if ;
+    dup string? [ [ ":/\\ \"" member? ] none? ] [ drop f ] if ;
 
 PRIVATE>