use CONSTANT: in core/

diff --git a/core/checksums/crc32/crc32.factor b/core/checksums/crc32/crc32.factor
index d373a96f39244c8d8881650849d76e7eacbb2c83..7ea2964411370fa1c321115ba3effcdafce3ad9b 100644 (file)
--- 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 beb50f1162ac7a69626d92bbbcbffa8a0a042622..1ee3a4e3ed9c15b981625c2b9d4f6f391f4609e9 100644 (file)
--- 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 94d211547870bc76918336d5a5c48b1af54b5188..e8735afa6aac8feb4c102d8b78f328e0c3b7e278 100644 (file)
--- 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 86486640316d2e39abaf7c80ff73779fce26c3f4..4a3c1b2d52d482ac8b81dfaa55cb253c73fea5c0 100755 (executable)
--- 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 ] [