~ chicken-r7rs (master) 642c0066525fc9d8af1178dc3a8144780fd2d637

commit 642c0066525fc9d8af1178dc3a8144780fd2d637
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Oct 31 17:52:45 2013 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Thu Oct 31 17:52:45 2013 +0000

    Add scheme.case-lambda library

diff --git a/r7rs.setup b/r7rs.setup
index a8926c3..59224d0 100644
--- a/r7rs.setup
+++ b/r7rs.setup
@@ -4,7 +4,7 @@
 (use make srfi-1)
 
 (define scheme-modules
-  '("process-context" "eval" "cxr" "complex" "inexact" "load" "file" "read" "char"))	;XXX
+  '("case-lambda" "char" "complex" "cxr" "eval" "file" "inexact" "load" "process-context" "read")) ;XXX
 
 (make (("r7rs-compile-time.so" ("r7rs-compile-time.scm" "r7rs-compile-time-module.scm")
 	(compile -s -O3 -d1 r7rs-compile-time-module.scm -J -o r7rs-compile-time.so)
diff --git a/scheme.case-lambda.scm b/scheme.case-lambda.scm
new file mode 100644
index 0000000..f49bb3d
--- /dev/null
+++ b/scheme.case-lambda.scm
@@ -0,0 +1,3 @@
+(module scheme.case-lambda (case-lambda)
+  (import (only scheme >= car cdr eq? length)
+          (only chicken case-lambda)))