io.streams.c: use binary-object.

2014-11-20 18:40:48 -08:00 · 2014-11-20 18:40:48 -08:00 · c36a9193ae
parent c0b4c1adb1
commit c36a9193ae
1 changed files with 3 additions and 2 deletions
--- 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