mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 21:59:17 +02:00
8b5eb68238
They can be close()d explicitly with close-file-descriptor, and will close() on gc, but only explicitly closing the last port on them will close the fileno. Notably needed for network sockets where we open separate input and output ports on the same socket.
59 lines
3.2 KiB
Scheme
59 lines
3.2 KiB
Scheme
|
|
(define-library (scheme base)
|
|
(import (except (chibi) equal?)
|
|
(rename (chibi equiv) (equiv? equal?))
|
|
(only (chibi string) string-map string-for-each)
|
|
(chibi io)
|
|
(rename (only (chibi ast)
|
|
exception? exception-message exception-irritants)
|
|
(exception? error-object?)
|
|
(exception-message error-object-message)
|
|
(exception-irritants error-object-irritants))
|
|
(srfi 9) (srfi 11) (srfi 39))
|
|
(export
|
|
* + - ... / < <= = => > >= _ abs and append apply assoc assq assv begin
|
|
binary-port? boolean? boolean=? bytevector bytevector-append
|
|
bytevector-copy bytevector-copy! bytevector-length
|
|
bytevector-u8-ref bytevector-u8-set! bytevector? caar cadr
|
|
call-with-current-continuation call-with-port call-with-values
|
|
call/cc car case cdr cdar cddr ceiling char->integer
|
|
char-ready? char<=? char<? char=? char>=? char>? char?
|
|
close-input-port close-output-port close-port complex? cond cond-expand
|
|
cons current-error-port current-input-port current-output-port define
|
|
define-record-type define-syntax define-values denominator do
|
|
dynamic-wind else eof-object? eof-object eq? equal? eqv? error
|
|
error-object-irritants error-object-message error-object? even?
|
|
exact exact-integer-sqrt exact-integer? exact? expt features
|
|
file-error? floor
|
|
flush-output-port for-each gcd get-output-bytevector get-output-string
|
|
guard if include include-ci inexact inexact? input-port?
|
|
integer->char
|
|
integer? lambda lcm length let let* let*-values let-syntax let-values
|
|
letrec letrec* letrec-syntax list list->string list->vector list-copy
|
|
list-ref list-set! list-tail list? make-bytevector make-list
|
|
make-parameter make-string make-vector map max member memq memv min
|
|
modulo negative? newline not null? number->string number? numerator
|
|
odd? open-input-bytevector open-input-string open-output-bytevector
|
|
open-output-string or output-port? pair? parameterize peek-char
|
|
peek-u8 input-port-open? output-port-open? port? positive?
|
|
procedure? quasiquote quote
|
|
quotient raise raise-continuable rational? rationalize read-bytevector
|
|
read-bytevector! read-char read-error? read-line read-string read-u8
|
|
real? remainder
|
|
reverse round set! set-car! set-cdr! square string string->list
|
|
string->number string->symbol string->utf8 string->vector string-append
|
|
string-copy string-copy! string-fill! string-for-each string-length
|
|
string-map
|
|
string-ref string-set! string<=? string<? string=? string>=?
|
|
string>? string? substring symbol->string symbol? symbol=? syntax-error
|
|
syntax-rules textual-port? truncate u8-ready? unless unquote
|
|
unquote-splicing utf8->string values vector vector-append
|
|
vector->list vector->string
|
|
vector-copy vector-copy! vector-fill! vector-for-each vector-length
|
|
vector-map vector-ref vector-set! vector? when with-exception-handler
|
|
write-bytevector write-char write-string write-u8 zero?
|
|
truncate-quotient truncate-remainder truncate/
|
|
floor-quotient floor-remainder floor/)
|
|
(include "define-values.scm"
|
|
"extras.scm"
|
|
"misc-macros.scm"))
|