~ chicken-core (chicken-5) 34544391f22cde66349fed1d43c7c6d8044ff22c

commit 34544391f22cde66349fed1d43c7c6d8044ff22c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 13 17:23:19 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jul 13 17:23:19 2011 +0200

    added sanity check in make-er/ir-transformer

diff --git a/expand.scm b/expand.scm
index 550c1b09..13825f70 100644
--- a/expand.scm
+++ b/expand.scm
@@ -745,6 +745,7 @@
 
 (define ((make-er/ir-transformer handler explicit-renaming?) form se dse)
   (let ((renv '()))			; keep rename-environment for this expansion
+    (assert (list? se) "not a list" se) ;XXX remove later
     (define (rename sym)
       (cond ((pair? sym)
 	     (cons (rename (car sym)) (rename (cdr sym))))