factor: use ??if instead of ?if-old

[factor.git] / core / words / words.factor

diff --git a/core/words/words.factor b/core/words/words.factor
index 6368dcfce221a6fa0934c6980f8adebce1c3d07c..f697c3c320c44c10e027c5026c1e97cd5a837dee 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -210,8 +210,8 @@ M: word reset-word
     [ gensym dup ] 2dip define-declared ;
 
 : reveal ( word -- )
-    dup [ name>> ] [ vocabulary>> ] bi dup vocab-words-assoc
-    [ ] [ no-vocab ] ?if set-at ;
+    dup [ name>> ] [ vocabulary>> ] bi
+    [ vocab-words-assoc ] [ no-vocab ] ?unless set-at ;
 
 ERROR: bad-create name vocab ;