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

triyng to rice crc32 a bit

db4
Doug Coleman 2009-12-13 02:03:06 -06:00
parent ae9bca2b1e
commit 9fea67f3ff
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/ports/ports.factor
View File

@ -27,7 +27,7 @@ TUPLE: buffered-port < port { buffer buffer } ;
TUPLE: input-port < buffered-port ; TUPLE: input-port < buffered-port ;
M: input-port stream-element-type drop +byte+ ; M: input-port stream-element-type drop +byte+ ; inline
: <input-port> ( handle -- input-port ) : <input-port> ( handle -- input-port )
input-port <buffered-port> ; input-port <buffered-port> ;
@ -104,7 +104,7 @@ TUPLE: output-port < buffered-port ;
[ nip ] [ buffer>> buffer-capacity <= ] 2bi [ nip ] [ buffer>> buffer-capacity <= ] 2bi
[ drop ] [ stream-flush ] if ; inline [ drop ] [ stream-flush ] if ; inline
M: output-port stream-element-type stream>> stream-element-type ; M: output-port stream-element-type stream>> stream-element-type ; inline
M: output-port stream-write1 M: output-port stream-write1
dup check-disposed dup check-disposed

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

@ -33,9 +33,9 @@ INSTANCE: crc32 checksum
M: crc32 checksum-bytes M: crc32 checksum-bytes
init-crc32 init-crc32
[ (crc32) ] each [ (crc32) ] each
finish-crc32 ; finish-crc32 ; inline
M: crc32 checksum-lines M: crc32 checksum-lines
init-crc32 init-crc32
[ [ (crc32) ] each CHAR: \n (crc32) ] each [ [ (crc32) ] each CHAR: \n (crc32) ] each
finish-crc32 ; finish-crc32 ; inline

2
core/io/io.factor
View File

@ -99,7 +99,7 @@ SYMBOL: error-stream
} case ; inline } case ; inline
: stream-element-exemplar ( stream -- exemplar ) : stream-element-exemplar ( stream -- exemplar )
stream-element-type (stream-element-exemplar) ; stream-element-type (stream-element-exemplar) ; inline
: element-exemplar ( -- exemplar ) : element-exemplar ( -- exemplar )
input-stream get stream-element-exemplar ; inline input-stream get stream-element-exemplar ; inline