~ 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