use CONSTANT: in core/
parent
e026b554a9
commit
a6b40707df
|
@ -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 [
|
||||
|
|
|
@ -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 )
|
||||
|
|
|
@ -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 ;
|
||||
|
||||
|
|
|
@ -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 ] [
|
||||
|
|
Loading…
Reference in New Issue