~ 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