From c36a9193ae0651f3f5398ff6243e9f1b6c2d4de7 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 20 Nov 2014 18:40:48 -0800 Subject: [PATCH] io.streams.c: use binary-object. --- core/io/streams/c/c.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/core/io/streams/c/c.factor b/core/io/streams/c/c.factor index 9b5466c778..7bcc5a6844 100644 --- a/core/io/streams/c/c.factor +++ b/core/io/streams/c/c.factor @@ -23,9 +23,10 @@ M: c-writer stream-write1 M: c-writer stream-write dup check-disposed - [ [ >c-ptr ] [ byte-length ] bi ] [ handle>> ] bi* fwrite ; + [ binary-object ] [ handle>> ] bi* fwrite ; -M: c-writer stream-flush dup check-disposed handle>> fflush ; +M: c-writer stream-flush + dup check-disposed handle>> fflush ; TUPLE: c-reader < c-stream ; INSTANCE: c-reader input-stream