~ chicken-core (chicken-5) cd105a338a5536741f128644d838d8f1e4f6bd8e

commit cd105a338a5536741f128644d838d8f1e4f6bd8e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 26 14:40:53 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 26 14:44:44 2010 +0100

    distinguish for-each/map loop name gensym

diff --git a/compiler-syntax.scm b/compiler-syntax.scm
old mode 100644
new mode 100755
index 4b8437c2..133cb745
--- a/compiler-syntax.scm
+++ b/compiler-syntax.scm
@@ -60,7 +60,7 @@
   (pair?)
   (let ((%let (r 'let))
 	(%if (r 'if))
-	(%loop (r 'loop))
+	(%loop (r 'for-each-loop))
 	(%proc (gensym))
 	(%begin (r 'begin))
 	(%and (r 'and))
@@ -89,7 +89,7 @@
   (pair?)
   (let ((%let (r 'let))
 	(%if (r 'if))
-	(%loop (r 'loop))
+	(%loop (r 'map-loop))
 	(%res (gensym))
 	(%cons (r 'cons))
 	(%set! (r 'set!))