;;; 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)))