~ chicken-core (chicken-5) bdfab86b4835e5c6b9c174063754b5b3b6c926c3

commit bdfab86b4835e5c6b9c174063754b5b3b6c926c3
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 26 03:53:55 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 26 03:53:55 2011 +0200

    removed incorrect comments

diff --git a/eval.scm b/eval.scm
index 2878ccf6..a7192b87 100644
--- a/eval.scm
+++ b/eval.scm
@@ -238,7 +238,7 @@
 	      ((symbol? x)
 	       (receive (i j) (lookup x e se)
 		 (cond ((not i)
-			(let ((var (if (not (assq x se)) ; global?
+			(let ((var (if (not (assq x se))
 				       (##sys#alias-global-hook j #f cntr)
 				       (or (##sys#get j '##core#primitive) j))))
 			  (if ##sys#eval-environment
@@ -364,7 +364,7 @@
 						    ((symbol? (cdr a))))
 					   (##sys#notice "assignment to imported value binding" var)))
 				       (let ((var
-					      (if (not (assq x se)) ; global?
+					      (if (not (assq x se))
 						  (##sys#alias-global-hook j #t cntr)
 						  (or (##sys#get j '##core#primitive) j))))
 					 (if ##sys#eval-environment