From 0589e061e197ed7df04441f74c066969a4462c88 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 6 Sep 2008 13:58:14 -0500
Subject: [PATCH] factor out money>string

---
 extra/money/money.factor | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/extra/money/money.factor b/extra/money/money.factor
index ba7a0ae04f..bf9f4d3a67 100644
--- a/extra/money/money.factor
+++ b/extra/money/money.factor
@@ -6,14 +6,16 @@ IN: money
 : dollars/cents ( dollars -- dollars cents )
     100 * 100 /mod round ;
 
-: money. ( object -- )
-    dollars/cents
-    [
+: money>string ( object -- string )
+    dollars/cents [
         "$" %
         swap number>string
         <reversed> 3 group "," join <reversed> %
         "." % number>string 2 CHAR: 0 pad-left %
-    ] "" make print ;
+    ] "" make ;
+
+: money. ( object -- )
+    money>string print ;
 
 ERROR: not-a-decimal x ;