parsed -> suffix!, add append!

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

diff --git a/extra/money/money.factor b/extra/money/money.factor
index 36dedb2a653b92e2f661317f227a2a1256ce23f0..6cafeff2895f3a90d558bce921ac62bf67846607 100644 (file)
--- a/extra/money/money.factor
+++ b/extra/money/money.factor
@@ -30,4 +30,4 @@ ERROR: not-an-integer x ;
     ] keep length
     10^ / + swap [ neg ] when ;
 
-SYNTAX: DECIMAL: scan parse-decimal parsed ;
+SYNTAX: DECIMAL: scan parse-decimal suffix! ;