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