58 lines
2.4 KiB
Scheme
58 lines
2.4 KiB
Scheme
;; -*- mode: scheme; coding: utf-8 -*-
|
|
;; SPDX-License-Identifier: CC0-1.0
|
|
#!r6rs
|
|
|
|
(library (scheme r5rs)
|
|
(export
|
|
* + - / < <= = > >= abs acos and angle append apply
|
|
asin assoc assq assv atan begin boolean? caaaar caaadr caaar
|
|
caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr
|
|
caddr cadr call-with-current-continuation
|
|
call-with-input-file call-with-output-file call-with-values
|
|
car case cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar
|
|
cddadr cddar cdddar cddddr cdddr cddr 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* let-syntax 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! set-car! set-cdr! 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? syntax-rules 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?)
|
|
(import
|
|
(except (rnrs r5rs) delay force)
|
|
(scheme base)
|
|
(scheme inexact)
|
|
(scheme complex)
|
|
(scheme cxr)
|
|
(scheme file)
|
|
(scheme char)
|
|
(scheme read)
|
|
(scheme write)
|
|
(scheme eval)
|
|
(scheme repl)
|
|
(scheme load)
|
|
(scheme lazy)))
|