bytevector-copy is missed. added port-open?c
This commit is contained in:
parent
3c396b5f3c
commit
64d7861bf3
|
@ -1 +1 @@
|
|||
Subproject commit 92749325a9ac2a37efde9dd8914b2306c1f80276
|
||||
Subproject commit 813ce064f3eb5ab56b80b0560c2c06138084ccf3
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue