[fixed bugs and added some io functions.
atsmyles@verizon.net**20110122181210
 Ignore-this: 45e7c82f4fbdc6f2cdea54c85b3ceed1
] hunk ./libs/rnrs/base.scm 104
-			(apply proc (map (lambda (s) (ref s i))))
+			(apply proc (map (lambda (s) (ref s i)) seqs))
hunk ./libs/rnrs/io.scm 1
-;this is used by (rnrs io ports), (rnrs io simple), and (rnrs files). It is not part of the standard but I use the same rnrs namespace for convienience.
+;this is used by (rnrs io ports), (rnrs io simple), and (rnrs files). It is not part of the standard but I use the same rnrs namespace for convenience.
hunk ./libs/rnrs/io.scm 20
-  (export eof-object eof-object? port? input-port? output-port? (rename (call-with-output-string call-with-output-string-port))
+  (export eof-object eof-object? port? input-port? output-port? call-with-string-output-port open-string-output-port
hunk ./libs/rnrs/io.scm 27
+;binary port functions
+get-u8 put-u8 put-bytevector
hunk ./libs/rnrs/io.scm 32
+	  (rnrs bytevectors)
+	  (rnrs control)
hunk ./libs/rnrs/io.scm 47
+  (define (get-u8 port) (read-u8 port))
+  (define (put-u8 port u8) (write-u8 u8 port))
+  (define put-bytevector
+	(case-lambda
+		((port bytevector) (write-subu8vector bytevector 0 (bytevector-length bytevector) port))
+		((port bytevector start) (write-subu8vector bytevector start (bytevector-length bytevector) port))
+		((port bytevector start count) (write-subu8vector bytevector start (+ start count) port))))
+  (define (open-string-output-port)
+	(let ((port (open-output-string)))
+	   (values port (lambda () (get-output-string port)))))
+
+  (define (call-with-string-output-port proc) (call-with-output-string '() proc))