~ chicken-core (chicken-5) 57bbe3b7895a328a6b04852947d1a4c2fa2a8ba0

commit 57bbe3b7895a328a6b04852947d1a4c2fa2a8ba0
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 18 15:32:41 2014 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 18 15:32:41 2014 +0200

    commented some curious things - these seem to be wrong

diff --git a/eval.scm b/eval.scm
index befdc29a..bbcd86c0 100644
--- a/eval.scm
+++ b/eval.scm
@@ -373,13 +373,13 @@
 						    ((symbol? (cdr a))))
 					   (##sys#notice "assignment to imported value binding" var)))
 				       (let ((var
-					      (if (not (assq x se))
+					      (if (not (assq x se)) ;XXX this looks wrong
 						  (and (not static)
 						       (##sys#alias-global-hook j #t cntr))
 						  (or (##sys#get j '##core#primitive) j))))
 					 (if (not var) ; static
 					     (lambda (v)
-					       (##sys#error 'eval "environment is not mutable" evalenv var))
+					       (##sys#error 'eval "environment is not mutable" evalenv var)) ;XXX var?
 					     (lambda (v)
 					       (##sys#setslot var 0 (##core#app val v))) ) ) ]
 				      [(zero? i) (lambda (v) (##sys#setslot (##sys#slot v 0) j (##core#app val v)))]