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

[factor.git] / basis / unicode / normalize / normalize.factor

diff --git a/basis/unicode/normalize/normalize.factor b/basis/unicode/normalize/normalize.factor
index 233e2ae65815082929d7caccea0f1635f7c5bfa5..bb12f4c5102376f41c61a11602c87dd9db180567 100644 (file)
--- a/basis/unicode/normalize/normalize.factor
+++ b/basis/unicode/normalize/normalize.factor
@@ -71,7 +71,7 @@ CONSTANT: final-count 28
     string [
         >fixnum dup ascii? [ out push ] [
             dup hangul? [ hangul>jamo out push-all ]
-            [ dup quot call [ out push-all ] [ out push ] ?if-old ] if
+            [ dup quot call or* [ out push-all ] [ out push ] if ] if
         ] if
     ] each
     out "" like dup reorder ; inline