triyng to rice crc32 a bit

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index 3ea4c105f5009a651450a88f1570e285a956a6fa..727d69adf8d2382415a1c18ff6962c6040c1159f 100644 (file)
--- 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
 
 : <input-port> ( handle -- input-port )
     input-port <buffered-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 209de83763801b4877271874dc0029c050131697..e937cf591086c008d48baffa4d26b0960802bc0f 100644 (file)
--- 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 ca36bc3b364a0dea34a540e641390f8a152ccf75..c134ba21086789f51cf3a8b26dbb683c2f73bdb6 100644 (file)
--- 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