kernel: ?if-old is just `[ or* ] 2dip if`

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

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 9d7f929180b8190c967beebe0c7fa71db322aca0..53b1447d24ec0617c8ee31010a5cd2cb8a9b66dc 100644 (file)
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -169,7 +169,7 @@ TUPLE: rename word vocab words ;
 : <rename> ( word vocab new-name -- rename )
     [
         2dup load-vocab words>> dupd at
-        [ ] [ swap no-word-in-vocab ] ?if-old
+        or* [ swap no-word-in-vocab ] unless
     ] dip associate rename boa ;
 
 : add-renamed-word ( word vocab new-name -- )