vocabs: use ?unless

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

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 5280784c1dd235f8da7ac14723b4b7e850930d2e..ff85940770438a59a21acda6472d0a0665ae0e05 100644 (file)
--- 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 )