~ chicken-r7rs (master) 16add3e2d366ff3aa7e1a0ee0a06327222e7867b

commit 16add3e2d366ff3aa7e1a0ee0a06327222e7867b
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Mon May 30 09:45:20 2016 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Mon May 30 09:45:20 2016 +1200

    Drop unnecessary ##core#begin around r7rs library forms

diff --git a/r7rs-compile-time.scm b/r7rs-compile-time.scm
index 7482c0f..d3b4bcb 100644
--- a/r7rs-compile-time.scm
+++ b/r7rs-compile-time.scm
@@ -146,18 +146,16 @@
 	      ,@code
 	      ,(parse-decls more)))
 	   (decl (syntax-error 'define-library "invalid library declaration" decl))))
-       `(##core#begin
-	 (##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)))
-	  ;; 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.
-	  (import-for-syntax r7rs) ; overwrites "syntax-rules"
-	  (import r7rs) ; overwrites "export" et al.
-	  ;; Now process all toplevel library declarations
-          ,(parse-decls decls)))))
+       `(##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)))
+	 ;; 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.
+	 (import-for-syntax r7rs) ; overwrites "syntax-rules"
+	 (import r7rs) ; overwrites "export" et al.
+	 ;; Now process all toplevel library declarations
+         ,(parse-decls decls))))
     (_ (syntax-error 'define-library "invalid library definition" form))))
 
 (define (register-r7rs-module name)