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

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

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index e483e0c8d49fe861d57fae1f89ce90b804aebfa1..002a52bd5b50c62d35944d254946d036cd7f93d6 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -34,7 +34,7 @@ SYMBOL: auto-use?
 : private? ( word -- ? ) vocabulary>> ".private" tail? ;
 
 : use-first-word? ( words -- ? )
-    [ length 1 = ] [ ?first dup [ private? not ] [ ] ?if-old ] bi and
+    [ length 1 = ] [ ?first dup or* [ private? not ] unless ] bi and
     auto-use? get and ;
 
 ! True branch is a singleton public word with no name conflicts