bytevector-copy is missed. added port-open?c

This commit is contained in:
Yuichi Nishiwaki 2014-09-09 02:14:24 +09:00
parent 3c396b5f3c
commit 64d7861bf3
3 changed files with 16 additions and 13 deletions

@ -1 +1 @@
Subproject commit 92749325a9ac2a37efde9dd8914b2306c1f80276
Subproject commit 813ce064f3eb5ab56b80b0560c2c06138084ccf3

View File

@ -124,6 +124,7 @@
bytevector-length
bytevector-u8-ref
bytevector-u8-set!
bytevector-copy
bytevector-copy!
bytevector-append)
@ -177,6 +178,7 @@
textual-port?
binary-port?
port-open?
close-port
open-input-file

View File

@ -479,19 +479,19 @@
(string-length s))))
(list->bytevector (map char->integer (string->list s start end)))))
(export bytevector
bytevector->list
list->bytevector
utf8->string
string->utf8)
(export bytevector?
bytevector
make-bytevector
bytevector-length
bytevector-u8-ref
bytevector-u8-set!
bytevector-copy
bytevector-copy!
bytevector-append)
bytevector-append
bytevector->list
list->bytevector
utf8->string
string->utf8)
;; 6.10. Control features
@ -507,15 +507,14 @@
(define (vector-for-each f . vectors)
(apply for-each f (map vector->list vectors)))
(export string-map
string-for-each
vector-map
vector-for-each)
(export procedure?
apply
map
for-each
string-map
string-for-each
vector-map
vector-for-each
call-with-current-continuation
call/cc
dynamic-wind
@ -554,6 +553,8 @@
textual-port?
binary-port?
(rename port-open? input-port-open?)
(rename port-open? output-port-open?)
close-port
(rename close-port close-input-port)
(rename close-port close-output-port)