~ chicken-core (chicken-5) 21e1be23bc8655e1a04185cb6d71def89d3b6f5c

commit 21e1be23bc8655e1a04185cb6d71def89d3b6f5c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jun 21 12:50:22 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jun 21 12:50:22 2011 +0200

    trivial change

diff --git a/expand.scm b/expand.scm
index 2a064a4b..95568dd9 100644
--- a/expand.scm
+++ b/expand.scm
@@ -59,6 +59,9 @@
 
 (define ##sys#current-environment (make-parameter '()))
 (define ##sys#current-meta-environment (make-parameter '()))
+
+;;XXX should this be a parameter?
+;;XXX should this be in eval.scm?
 (define ##sys#active-eval-environment ##sys#current-environment)
 
 (define (lookup id se)