parsed -> suffix!, add append!

[factor.git] / extra / decimals / decimals.factor

diff --git a/extra/decimals/decimals.factor b/extra/decimals/decimals.factor
index ae1fb2f9a36c11dd8da1e2d88e27ba1fef690635..8ca9ea91c51e9f816afec21f60f10427d283b635 100644 (file)
--- a/extra/decimals/decimals.factor
+++ b/extra/decimals/decimals.factor
@@ -20,7 +20,7 @@ TUPLE: decimal { mantissa read-only } { exponent read-only } ;
 
 : parse-decimal ( -- decimal ) scan string>decimal ;
 
-SYNTAX: D: parse-decimal parsed ;
+SYNTAX: D: parse-decimal suffix! ;
 
 : decimal>ratio ( decimal -- ratio ) >decimal< 10^ * ;
 : decimal>float ( decimal -- ratio ) decimal>ratio >float ;