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

[factor.git] / extra / reports / noise / noise.factor

diff --git a/extra/reports/noise/noise.factor b/extra/reports/noise/noise.factor
index 61155161386f2a23f248649f4ecc5ea9d80c3d53..9dccb37a3e0c07674dd68b8217899b415826c181 100644 (file)
--- a/extra/reports/noise/noise.factor
+++ b/extra/reports/noise/noise.factor
@@ -35,7 +35,7 @@ IN: reports.noise
         { unless 1/4 }
         { when* 1/3 }
         { unless* 1/3 }
-        { ?if-old 1/2 }
+        { ?if 1/2 }
         { cond 1/2 }
         { case 1/2 }
         { keep 1 }