~ chicken-r7rs (master) 8c60f6dd9d1986f86b36e8cb4e5c8d796142048d

commit 8c60f6dd9d1986f86b36e8cb4e5c8d796142048d
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Aug 10 16:41:42 2016 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Wed Aug 10 23:04:08 2016 +1200

    Fix write-bytevector after port changes in core
    
    Also, fix its type signature to match write-u8vector and the R7RS spec.

diff --git a/scheme.base.scm b/scheme.base.scm
index a8e4d8a..3de2760 100644
--- a/scheme.base.scm
+++ b/scheme.base.scm
@@ -478,7 +478,7 @@
 (: make-bytevector (fixnum #!optional fixnum -> bytevector))
 (: string->utf8 (string #!optional fixnum fixnum -> bytevector))
 (: utf8->string (bytevector #!optional fixnum fixnum -> string))
-(: write-bytevector (bytevector #!optional output-port -> fixnum))
+(: write-bytevector (bytevector #!optional output-port fixnum fixnum -> void))
 
 (define bytevector-copy
   (case-lambda
@@ -798,7 +798,7 @@
        (read-u8vector!/eof (fx- end start) bv port start)))))
 
 (define (open-input-bytevector bv)
-  (let ((port (##sys#make-port #t #f "(bytevector)" 'custom)))
+  (let ((port (##sys#make-port 1 #f "(bytevector)" 'custom)))
     (##sys#setslot
      port
      2