From 67a62fc8aa5efe57408fbea8747c201f0ac1455e Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 9 Jan 2024 09:56:38 -0800
Subject: [PATCH] vocabs: oops fix valid-vocab-name?

---
 core/vocabs/vocabs.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 8e78f7c678..79575216ad 100644
--- 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>
 
-- 
2.34.1