mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49: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.
55 lines
2.4 KiB
Scheme
55 lines
2.4 KiB
Scheme
|
|
(define-library (scheme r5rs)
|
|
(import
|
|
(rename (scheme base)
|
|
(exact inexact->exact)
|
|
(inexact exact->inexact))
|
|
(scheme cxr)
|
|
(scheme char)
|
|
(scheme inexact)
|
|
(scheme complex)
|
|
(scheme read)
|
|
(scheme write)
|
|
(scheme file)
|
|
(scheme lazy)
|
|
(scheme eval)
|
|
(scheme repl)
|
|
(scheme load)
|
|
(only (chibi) null-environment scheme-report-environment))
|
|
(export
|
|
- * / + < <= = > >= abs acos and angle append apply asin assoc assq
|
|
assv atan begin boolean?
|
|
caaaar caaadr caadar caaddr
|
|
cadaar cadadr caddar cadddr
|
|
cdaaar cdaadr cdadar cdaddr
|
|
cddaar cddadr cdddar cddddr
|
|
caaar caadr cadar caddr
|
|
cdaar cdadr cddar cdddr
|
|
caar cadr cdar cddr
|
|
call-with-current-continuation call-with-input-file call-with-output-file
|
|
call-with-values car case cdr ceiling char->integer char-alphabetic?
|
|
char-ci<? char-ci<=? char-ci=? char-ci>? char-ci>=? char-downcase
|
|
char-lower-case? char-numeric? char-ready? char-upcase
|
|
char-upper-case? char-whitespace? char? char<? char<=? char=? char>?
|
|
char>=? close-input-port close-output-port complex? cond cons cos
|
|
current-input-port current-output-port define define-syntax delay
|
|
denominator display do dynamic-wind eof-object? eq? equal? eqv? eval
|
|
even? exact->inexact exact? exp expt floor for-each force gcd if
|
|
imag-part inexact->exact inexact? input-port? integer->char integer?
|
|
interaction-environment lambda lcm length let let-syntax let* letrec
|
|
letrec-syntax list list->string list->vector list-ref list-tail list?
|
|
load log magnitude make-polar make-rectangular make-string make-vector
|
|
map max member memq memv min modulo negative? newline not
|
|
null-environment null? number->string number? numerator odd?
|
|
open-input-file open-output-file or output-port? pair? peek-char
|
|
positive? procedure? quasiquote quote quotient rational? rationalize
|
|
read read-char real-part real? remainder reverse round
|
|
scheme-report-environment set-car! set-cdr! set! sin sqrt string
|
|
string->list string->number string->symbol string-append string-ci<?
|
|
string-ci<=? string-ci=? string-ci>? string-ci>=? string-copy
|
|
string-fill! string-length string-ref string-set! string? string<?
|
|
string<=? string=? string>? string>=? substring symbol->string symbol?
|
|
tan truncate values vector vector->list vector-fill! vector-length
|
|
vector-ref vector-set! vector? with-input-from-file
|
|
with-output-to-file write write-char zero?
|
|
))
|