From d2d8f02d504a0c46c962ea4253557b32170f3620 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 27 Jan 2018 12:01:21 -0600
Subject: [PATCH] decimals: break a word up.

---
 extra/decimals/decimals.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/extra/decimals/decimals.factor b/extra/decimals/decimals.factor
index 3867fbf8fd..f9f7ab2e2a 100644
--- a/extra/decimals/decimals.factor
+++ b/extra/decimals/decimals.factor
@@ -11,11 +11,14 @@ C: <decimal> decimal
 : >decimal< ( decimal -- mantissa exponent )
     [ mantissa>> ] [ exponent>> ] bi ; inline
 
-: string>decimal ( string -- decimal )
+: string>mantissa-exponent ( string -- mantissa exponent )
     "." split1
     [ [ char: 0 = ] trim-head [ "0" ] when-empty ]
     [ [ char: 0 = ] trim-tail [ "" ] when-empty ] bi*
-    [ append string>number ] [ nip length neg ] 2bi <decimal> ;
+    [ append string>number ] [ nip length neg ] 2bi ; inline
+
+: string>decimal ( string -- decimal )
+    string>mantissa-exponent <decimal> ;
 
 : parse-decimal ( -- decimal ) scan-token string>decimal ;