~ chicken-r7rs (master) 3b67eb64b37dd58cb1b5c480d2ad06a47b0cdc28
commit 3b67eb64b37dd58cb1b5c480d2ad06a47b0cdc28
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Mon May 30 09:44:13 2016 +1200
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Mon May 30 09:44:14 2016 +1200
Unquote result of dummy module export procedure
diff --git a/r7rs-compile-time.scm b/r7rs-compile-time.scm
index b385971..7482c0f 100644
--- a/r7rs-compile-time.scm
+++ b/r7rs-compile-time.scm
@@ -150,7 +150,7 @@
(##core#module
,real-name ((,dummy-export))
;; gruesome hack: we add a dummy export for adding indirect exports
- (##core#define-syntax ,dummy-export (##core#lambda _ '(##core#undefined)))
+ (##core#define-syntax ,dummy-export (##core#lambda _ (##core#undefined)))
;; Another gruesome hack: provide feature so "use" works properly
(##sys#provide (##core#quote ,real-name))
;; Set up an R7RS environment for the module's body.
Trap