mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
2d76447bda
* module/Makefile.am: Add r7rs-libraries.scm as dependency for boot-9.go. (SOURCES): Add $(R7RS_SOURCES). (R7RS_SOURCES): New variable. (NOCOMP_SOURCES): Add ice-9/r7rs-libraries.scm. * module/ice-9/boot-9.scm: Include r7rs-libraries.scm. (%cond-expand-features): Add r7rs, exact-closed, ieee-float, full-unicode, and ratios. Add TODO comments. (%cond-expand): New procedure, derived from code in 'cond-expand'. (cond-expand): Reimplement in terms of '%cond-expand'. * module/ice-9/r7rs-libraries.scm: module/scheme/base.scm: module/scheme/case-lambda.scm: module/scheme/char.scm: module/scheme/complex.scm: module/scheme/cxr.scm: module/scheme/eval.scm: module/scheme/file.scm: module/scheme/inexact.scm: module/scheme/lazy.scm: module/scheme/load.scm: module/scheme/process-context.scm: module/scheme/r5rs.scm: module/scheme/read.scm: module/scheme/repl.scm: module/scheme/time.scm: module/scheme/write.scm: New files.
72 lines
3.6 KiB
Scheme
72 lines
3.6 KiB
Scheme
;;; r5rs.scm --- The R7RS r5rs library
|
||
|
||
;; Copyright (C) 2013, 2014 Free Software Foundation, Inc.
|
||
;;
|
||
;; This library is free software; you can redistribute it and/or
|
||
;; modify it under the terms of the GNU Lesser General Public
|
||
;; License as published by the Free Software Foundation; either
|
||
;; version 3 of the License, or (at your option) any later version.
|
||
;;
|
||
;; This library is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
;; Lesser General Public License for more details.
|
||
;;
|
||
;; You should have received a copy of the GNU Lesser General Public
|
||
;; License along with this library; if not, write to the Free Software
|
||
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||
|
||
|
||
(define-library (scheme r5rs)
|
||
(export * + - / < <= = > >=
|
||
abs acos and angle append apply asin assoc assq assv atan begin
|
||
boolean? car cdr caar cadr cdar cddr
|
||
caaar caadr cadar caddr cdaar cdadr cddar cdddr
|
||
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
|
||
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
|
||
call-with-current-continuation call-with-input-file
|
||
call-with-output-file call-with-values case 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? exact->inexact exp expt floor for-each force gcd
|
||
if imag-part inexact? inexact->exact 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? 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 (rename (scheme base)
|
||
(exact inexact->exact)
|
||
(inexact exact->inexact))
|
||
(scheme read)
|
||
(scheme write)
|
||
(scheme file)
|
||
(scheme lazy)
|
||
(scheme inexact)
|
||
(scheme complex)
|
||
(scheme char)
|
||
(scheme cxr)
|
||
(scheme eval)
|
||
(scheme repl)
|
||
(scheme load)
|
||
(only (ice-9 r5rs)
|
||
scheme-report-environment)
|
||
(only (ice-9 safe-r5rs)
|
||
null-environment)))
|