Guile-hoot/lib/scheme/r5rs.scm

;;; R7RS (scheme r5rs)
;;; Copyright (C) 2024 Igalia, S.L.
;;;
;;; Licensed under the Apache License, Version 2.0 (the "License");
;;; you may not use this file except in compliance with the License.
;;; You may obtain a copy of the License at
;;;
;;;    http://www.apache.org/licenses/LICENSE-2.0
;;;
;;; Unless required by applicable law or agreed to in writing, software
;;; distributed under the License is distributed on an "AS IS" BASIS,
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;;; See the License for the specific language governing permissions and
;;; limitations under the License.

;;; Commentary:
;;;
;;; A definition of R5RS (scheme r5rs).
;;;
;;; Code:

(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?
          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 (scheme base)
          (scheme char)
          (scheme complex)
          (scheme cxr)
          (scheme eval)
          (scheme file)
          (rename (scheme inexact)
                  (inexact exact->inexact)
                  (exact inexact->exact))
          (scheme lazy)
          (scheme load)
          (scheme process-context)
          (scheme read)
          (scheme repl)
          (scheme write)))