From a6b40707df0466d51464d3587ac608d9bba02dfd Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 22 Feb 2009 19:09:49 -0600
Subject: [PATCH] use CONSTANT: in core/

---
 core/checksums/crc32/crc32.factor         | 4 ++--
 core/combinators/combinators-tests.factor | 4 ++--
 core/io/encodings/encodings.factor        | 2 +-
 core/words/words.factor                   | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/core/checksums/crc32/crc32.factor b/core/checksums/crc32/crc32.factor
index d373a96f39..7ea2964411 100644
--- a/core/checksums/crc32/crc32.factor
+++ b/core/checksums/crc32/crc32.factor
@@ -5,9 +5,9 @@ words io io.binary io.files io.streams.string quotations
 definitions checksums ;
 IN: checksums.crc32
 
-: crc32-polynomial HEX: edb88320 ; inline
+CONSTANT: crc32-polynomial HEX: edb88320
 
-: crc32-table V{ } ; inline
+CONSTANT: crc32-table V{ }
 
 256 [
     8 [
diff --git a/core/combinators/combinators-tests.factor b/core/combinators/combinators-tests.factor
index beb50f1162..1ee3a4e3ed 100644
--- a/core/combinators/combinators-tests.factor
+++ b/core/combinators/combinators-tests.factor
@@ -176,8 +176,8 @@ IN: combinators.tests
 
 [ "an array" ] [ { 1 2 3 } case-test-3 ] unit-test
 
-: case-const-1 1 ;
-: case-const-2 2 ; inline
+CONSTANT: case-const-1 1
+CONSTANT: case-const-2 2
 
 ! Compiled
 : case-test-4 ( obj -- str )
diff --git a/core/io/encodings/encodings.factor b/core/io/encodings/encodings.factor
index 94d2115478..e8735afa6a 100644
--- a/core/io/encodings/encodings.factor
+++ b/core/io/encodings/encodings.factor
@@ -14,7 +14,7 @@ GENERIC: encode-char ( char stream encoding -- )
 
 GENERIC: <decoder> ( stream encoding -- newstream )
 
-: replacement-char HEX: fffd ; inline
+CONSTANT: replacement-char HEX: fffd
 
 TUPLE: decoder stream code cr ;
 
diff --git a/core/words/words.factor b/core/words/words.factor
index 8648664031..4a3c1b2d52 100755
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -134,7 +134,7 @@ compiled-generic-crossref [ H{ } clone ] initialize
 
 SYMBOL: visited
 
-: reset-on-redefine { "inferred-effect" "cannot-infer" } ; inline
+CONSTANT: reset-on-redefine { "inferred-effect" "cannot-infer" }
 
 : (redefined) ( word -- )
     dup visited get key? [ drop ] [