mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-08 21:47:33 +02:00
Adding input-port-open? and output-port-open?.
This commit is contained in:
parent
2eecec0a4b
commit
73ea9c4e7a
2 changed files with 5 additions and 1 deletions
|
@ -35,7 +35,8 @@
|
||||||
modulo negative? newline not null? number->string number? numerator
|
modulo negative? newline not null? number->string number? numerator
|
||||||
odd? open-input-bytevector open-input-string open-output-bytevector
|
odd? open-input-bytevector open-input-string open-output-bytevector
|
||||||
open-output-string or output-port? pair? parameterize peek-char
|
open-output-string or output-port? pair? parameterize peek-char
|
||||||
peek-u8 port-open? port? positive? procedure? quasiquote quote
|
peek-u8 input-port-open? output-port-open? port? positive?
|
||||||
|
procedure? quasiquote quote
|
||||||
quotient raise raise-continuable rational? rationalize read-bytevector
|
quotient raise raise-continuable rational? rationalize read-bytevector
|
||||||
read-bytevector! read-char read-error? read-line read-u8 real? remainder
|
read-bytevector! read-char read-error? read-line read-u8 real? remainder
|
||||||
reverse round set! set-car! set-cdr! square string string->list
|
reverse round set! set-car! set-cdr! square string string->list
|
||||||
|
|
|
@ -61,6 +61,9 @@
|
||||||
|
|
||||||
(define flush-output-port flush-output)
|
(define flush-output-port flush-output)
|
||||||
|
|
||||||
|
(define input-port-open? port-open?)
|
||||||
|
(define output-port-open? port-open?)
|
||||||
|
|
||||||
(define (close-port port)
|
(define (close-port port)
|
||||||
((if (input-port? port) close-input-port close-output-port) port))
|
((if (input-port? port) close-input-port close-output-port) port))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue