From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 25 Feb 2023 23:36:52 +0000 (-0600)
Subject: vocabs: use ?unless
X-Git-Tag: 0.99~505
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5c10c4812d2ed65b40f1042a055ca3977b74d791

vocabs: use ?unless
---

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 5280784c1d..ff85940770 100644
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -50,7 +50,7 @@ M: object lookup-vocab vocab-name dictionary get at ;
 ERROR: no-vocab-named name ;
 
 : ?lookup-vocab ( vocab-spec -- vocab )
-    dup lookup-vocab [ nip ] [ no-vocab-named ] if* ;
+    [ lookup-vocab ] [ no-vocab-named ] ?unless ;
 
 GENERIC: vocab-words-assoc ( vocab-spec -- assoc/f )