~ chicken-r7rs (master) 8958e58bc8df8397fbf8cd53c85aff7a44505813

commit 8958e58bc8df8397fbf8cd53c85aff7a44505813
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Feb 26 17:25:48 2014 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Wed Feb 26 17:25:48 2014 +0000

    Export string-upcase & -downcase from srfi-13

diff --git a/scheme.char.scm b/scheme.char.scm
index ed0daff..42bd2a5 100644
--- a/scheme.char.scm
+++ b/scheme.char.scm
@@ -2,8 +2,9 @@
 		     string-ci=? string-ci<? string-ci>? string-ci<=? string-ci>=?
                      char-alphabetic? char-numeric? char-whitespace?
                      char-upper-case? char-lower-case?
-                     ;; char-foldcase ; TODO
+                     ;; char-foldcase string-foldcase ; TODO
                      char-upcase char-downcase
+		     string-upcase string-downcase
 		     digit-value)
 
 (import
@@ -16,6 +17,9 @@
 	  string-ci=? string-ci<? string-ci>? string-ci<=? string-ci>=?)
     %))
 
+(require-library srfi-13)
+(import (only srfi-13 string-upcase string-downcase))
+
 (import chicken)
 (require-extension r7rs-compile-time)