~ 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