From 213e78037afc76ebf3e935540645202c8d838ee5 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 23 Nov 2012 16:48:14 +0900
Subject: [PATCH] Adding missing (scheme r5rs) library.

---
 lib/scheme/eval.sld  |  2 +-
 lib/scheme/r5rs.sld  | 55 ++++++++++++++++++++++++++++++++++++++++++++
 tests/r7rs-tests.scm |  1 +
 3 files changed, 57 insertions(+), 1 deletion(-)
 create mode 100644 lib/scheme/r5rs.sld

diff --git a/lib/scheme/eval.sld b/lib/scheme/eval.sld
index 0b30a3cb..e66b7169 100644
--- a/lib/scheme/eval.sld
+++ b/lib/scheme/eval.sld
@@ -1,4 +1,4 @@
 
 (define-library (scheme eval)
   (import (chibi) (meta))
-  (export eval environment null-environment scheme-report-environment))
+  (export eval environment))
diff --git a/lib/scheme/r5rs.sld b/lib/scheme/r5rs.sld
new file mode 100644
index 00000000..c6d8e25b
--- /dev/null
+++ b/lib/scheme/r5rs.sld
@@ -0,0 +1,55 @@
+
+(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 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?
+   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?
+   ))
diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm
index 8a966cf1..462f8a79 100644
--- a/tests/r7rs-tests.scm
+++ b/tests/r7rs-tests.scm
@@ -4,6 +4,7 @@
         (scheme inexact) (scheme complex) (scheme time)
         (scheme file) (scheme read) (scheme write)
         (scheme eval) (scheme process-context) (scheme case-lambda)
+        (scheme r5rs)
         (chibi test))
 
 ;; R7RS test suite.  Covers all procedures and syntax in the small