From 9fea67f3ffe876b00f0e08b7957f8942027fba12 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 13 Dec 2009 02:03:06 -0600 Subject: [PATCH] triyng to rice crc32 a bit --- basis/io/ports/ports.factor | 4 ++-- core/checksums/crc32/crc32.factor | 4 ++-- core/io/io.factor | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor index 3ea4c105f5..727d69adf8 100644 --- a/basis/io/ports/ports.factor +++ b/basis/io/ports/ports.factor @@ -27,7 +27,7 @@ TUPLE: buffered-port < port { buffer buffer } ; TUPLE: input-port < buffered-port ; -M: input-port stream-element-type drop +byte+ ; +M: input-port stream-element-type drop +byte+ ; inline : ( handle -- input-port ) input-port ; @@ -104,7 +104,7 @@ TUPLE: output-port < buffered-port ; [ nip ] [ buffer>> buffer-capacity <= ] 2bi [ 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 dup check-disposed diff --git a/core/checksums/crc32/crc32.factor b/core/checksums/crc32/crc32.factor index 209de83763..e937cf5910 100644 --- a/core/checksums/crc32/crc32.factor +++ b/core/checksums/crc32/crc32.factor @@ -33,9 +33,9 @@ INSTANCE: crc32 checksum M: crc32 checksum-bytes init-crc32 [ (crc32) ] each - finish-crc32 ; + finish-crc32 ; inline M: crc32 checksum-lines init-crc32 [ [ (crc32) ] each CHAR: \n (crc32) ] each - finish-crc32 ; + finish-crc32 ; inline diff --git a/core/io/io.factor b/core/io/io.factor index ca36bc3b36..c134ba2108 100644 --- a/core/io/io.factor +++ b/core/io/io.factor @@ -99,7 +99,7 @@ SYMBOL: error-stream } case ; inline : stream-element-exemplar ( stream -- exemplar ) - stream-element-type (stream-element-exemplar) ; + stream-element-type (stream-element-exemplar) ; inline : element-exemplar ( -- exemplar ) input-stream get stream-element-exemplar ; inline