Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferr...

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

diff --git a/extra/decimals/decimals.factor b/extra/decimals/decimals.factor
index d5c62fee5e3d0d4fa4f87ff2f78b2aa18a1d11af..3cd51abc98e8787a89863c30e0dc224c0b2f4056 100644 (file)
--- a/extra/decimals/decimals.factor
+++ b/extra/decimals/decimals.factor
@@ -18,7 +18,7 @@ TUPLE: decimal { mantissa read-only } { exponent read-only } ;
     [ [ CHAR: 0 = ] trim-tail [ "" ] when-empty ] bi*
     [ append string>number ] [ nip length neg ] 2bi <decimal> ; 
 
-: parse-decimal ( -- decimal ) scan string>decimal ;
+: parse-decimal ( -- decimal ) scan-token string>decimal ;
 
 SYNTAX: D: parse-decimal suffix! ;