From c7925940958ae58337a959f99369fb8a822efe00 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Fri, 27 Mar 2009 18:55:43 -0500
Subject: [PATCH] use CONSTANT: in roman

---
 basis/roman/roman.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/roman/roman.factor b/basis/roman/roman.factor
index 71343b723d..4991d5b243 100644
--- a/basis/roman/roman.factor
+++ b/basis/roman/roman.factor
@@ -8,11 +8,11 @@ IN: roman
 
 <PRIVATE
 
-: roman-digits ( -- seq )
-    { "m" "cm" "d" "cd" "c" "xc" "l" "xl" "x" "ix" "v" "iv" "i" } ;
+CONSTANT: roman-digits
+    { "m" "cm" "d" "cd" "c" "xc" "l" "xl" "x" "ix" "v" "iv" "i" }
 
-: roman-values ( -- seq )
-    { 1000 900 500 400 100 90 50 40 10 9 5 4 1 } ;
+CONSTANT: roman-values
+    { 1000 900 500 400 100 90 50 40 10 9 5 4 1 }
 
 ERROR: roman-range-error n ;