core: (head) (tail) from-end -> from-tail. add cramp

[factor.git] / core / io / io.factor

diff --git a/core/io/io.factor b/core/io/io.factor
index 9becbca5a6e4508c533eb81c80f015d33c1aa51e..36ea5e009d6cf4996ee2b26d21b8d254be7c0ac9 100644 (file)
--- a/core/io/io.factor
+++ b/core/io/io.factor
@@ -124,7 +124,7 @@ SYMBOL: error-stream
 
 : (read-into) ( buf stream quot -- buf-slice/f )
     [ dup length over ] 2dip call
-    [ (head) <slice-unsafe> ] [ zero? not ] bi ; inline
+    [ head-to-index <slice-unsafe> ] [ zero? not ] bi ; inline
 
 PRIVATE>