From dbab0b633e84e54571c9c9efd743eeefba98736e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 6 Sep 2008 13:16:05 -0500 Subject: [PATCH 1/2] add demos tag to spheres --- extra/spheres/tags.txt | 1 + 1 file changed, 1 insertion(+) diff --git a/extra/spheres/tags.txt b/extra/spheres/tags.txt index 2e6040bd16..b9a82374be 100644 --- a/extra/spheres/tags.txt +++ b/extra/spheres/tags.txt @@ -1,2 +1,3 @@ opengl glsl +demos From 0589e061e197ed7df04441f74c066969a4462c88 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 6 Sep 2008 13:58:14 -0500 Subject: [PATCH 2/2] 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 3 group "," join % "." % number>string 2 CHAR: 0 pad-left % - ] "" make print ; + ] "" make ; + +: money. ( object -- ) + money>string print ; ERROR: not-a-decimal x ;