~ chicken-core (chicken-5) 2d6b5c7d44ebb77ed0be0f568ba6455f7f154169

commit 2d6b5c7d44ebb77ed0be0f568ba6455f7f154169
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sun Sep 15 11:43:49 2019 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun Sep 15 11:43:49 2019 +0200

    Remove unused "initial-environment" variable and associated comment

diff --git a/core.scm b/core.scm
index 9a51f04d..5c49a683 100644
--- a/core.scm
+++ b/core.scm
@@ -512,11 +512,7 @@
 ;;; Expand macros and canonicalize expressions:
 
 (define (canonicalize-expression exp)
-  (let ((compiler-syntax '())
-	;; Not sure this is correct, given that subsequent expressions
-	;; to be canonicalized will mutate the current environment.
-	;; Used to reset the environment for ##core#module forms.
-	(initial-environment (##sys#current-environment)))
+  (let ((compiler-syntax '()))
 
   (define (find-id id se)		; ignores macro bindings
     (cond ((null? se) #f)