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

[factor.git] / basis / compiler / tree / propagation / simple / simple.factor

diff --git a/basis/compiler/tree/propagation/simple/simple.factor b/basis/compiler/tree/propagation/simple/simple.factor
index 7209408d3c07d92d59e01b0f4fdd0cbd6eddee8a..27219188c75a5640364121dc56a0993e36a47b0d 100644 (file)
--- a/basis/compiler/tree/propagation/simple/simple.factor
+++ b/basis/compiler/tree/propagation/simple/simple.factor
@@ -102,8 +102,8 @@ ERROR: invalid-outputs #call infos ;
     [ predicate-output-infos 1array ] 2bi ;
 
 : default-output-value-infos ( #call word -- infos )
-    "default-output-classes" word-prop
-    [ class-infos ] [ out-d>> length object-info <repetition> ] ?if-old ;
+    "default-output-classes" word-prop or*
+    [ class-infos ] [ out-d>> length object-info <repetition> ] if ;
 
 : output-value-infos ( #call word -- infos )
     {