steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/checksums/crc32/crc32.factor
View File

@ -5,9 +5,9 @@ words io io.binary io.files io.streams.string quotations
definitions checksums ; definitions checksums ;
IN: checksums.crc32 IN: checksums.crc32
: crc32-polynomial HEX: edb88320 ; inline CONSTANT: crc32-polynomial HEX: edb88320
: crc32-table V{ } ; inline CONSTANT: crc32-table V{ }
256 [ 256 [
8 [ 8 [

4
core/combinators/combinators-tests.factor
View File

@ -176,8 +176,8 @@ IN: combinators.tests
[ "an array" ] [ { 1 2 3 } case-test-3 ] unit-test [ "an array" ] [ { 1 2 3 } case-test-3 ] unit-test
: case-const-1 1 ; CONSTANT: case-const-1 1
: case-const-2 2 ; inline CONSTANT: case-const-2 2
! Compiled ! Compiled
: case-test-4 ( obj -- str ) : case-test-4 ( obj -- str )

2
core/io/encodings/encodings.factor
View File

@ -14,7 +14,7 @@ GENERIC: encode-char ( char stream encoding -- )
GENERIC: <decoder> ( stream encoding -- newstream ) GENERIC: <decoder> ( stream encoding -- newstream )
: replacement-char HEX: fffd ; inline CONSTANT: replacement-char HEX: fffd
TUPLE: decoder stream code cr ; TUPLE: decoder stream code cr ;

2
core/words/words.factor
View File

@ -134,7 +134,7 @@ compiled-generic-crossref [ H{ } clone ] initialize
SYMBOL: visited SYMBOL: visited
: reset-on-redefine { "inferred-effect" "cannot-infer" } ; inline CONSTANT: reset-on-redefine { "inferred-effect" "cannot-infer" }
: (redefined) ( word -- ) : (redefined) ( word -- )
dup visited get key? [ drop ] [ dup visited get key? [ drop ] [