factor: use ??if instead of ?if-old

[factor.git] / extra / money / money.factor

diff --git a/extra/money/money.factor b/extra/money/money.factor
index 6ed35a703888e580efb565bae4cafb276c35d1eb..b98bdeb246582e137bc2cb0030db092c0c7508b0 100644 (file)
--- a/extra/money/money.factor
+++ b/extra/money/money.factor
@@ -28,7 +28,7 @@ ERROR: not-an-integer x ;
 : parse-decimal ( str -- ratio )
     split-decimal [ [ "0" ] when-empty ] bi@
     [
-        [ dup string>number [ ] [ not-an-integer ] ?if ] bi@
+        [ string>number ] [ ] [ not-an-integer ] ??if ] bi@
     ] keep length 10^ / + swap [ neg ] when ;
 
 SYNTAX: DECIMAL: scan-token parse-decimal suffix! ;