factor: ?if to ?if-old

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

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 43137631d999b5f70b49ac66aa32f2305ac0329b..9d7f929180b8190c967beebe0c7fa71db322aca0 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
+        [ ] [ swap no-word-in-vocab ] ?if-old
     ] dip associate rename boa ;
 
 : add-renamed-word ( word vocab new-name -- )