~ chicken-r7rs (master) 1a0f3e7a67c0fd09e8b15a2b93e2ade70676989a
commit 1a0f3e7a67c0fd09e8b15a2b93e2ade70676989a
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Sun Jul 7 04:56:11 2013 +0000
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Sun Jul 7 04:56:11 2013 +0000
Add scheme.read module
diff --git a/r7rs.setup b/r7rs.setup
index 280f22e..b152b3d 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")) ;XXX
+ '("process-context" "eval" "cxr" "complex" "inexact" "load" "file" "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.read.scm b/scheme.read.scm
new file mode 100644
index 0000000..6cea019
--- /dev/null
+++ b/scheme.read.scm
@@ -0,0 +1,2 @@
+(module scheme.read (read)
+ (import scheme))
Trap