use CONSTANT: in core/

db4
Doug Coleman 2009-02-22 19:09:49 -06:00
parent e026b554a9
commit a6b40707df
4 changed files with 6 additions and 6 deletions

View File

@ -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 [

View File

@ -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 )

View File

@ -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 ;

View File

@ -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 ] [