;; -*- mode: scheme; coding: utf-8 -*-
;; SPDX-License-Identifier: CC0-1.0
#!r6rs

(library (scheme r5rs)
  (export
    ... => else
    * + - / < <= = > >= 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)))