parser: fix bad refactor

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

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 5d9901440e4e94c2da7b45e6f795741f613fac24..38e78b7ab832a39802804238a868fdb1f2f752c0 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 or* [ private? not ] unless ] bi and
+    [ length 1 = ] [ ?first dup or* [ private? not ] when ] bi and
     auto-use? get and ;
 
 ! True branch is a singleton public word with no name conflicts