mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
578f205eff
Add missing identifiers from erratum 22 of http://trac.sacrideo.us/wg/wiki/R7RSSmallErrata.
54 lines
2.4 KiB
Scheme
54 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 else 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?
|
|
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?))
|