From ae3164643eb3ee8f497422c3a4072ac70642467f Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 10 Dec 2013 03:10:42 -0800
Subject: [PATCH] [bugfix] let may take an identifier as a loop name

---
 piclib/built-in.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index acbc3020..996f46c1 100644
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@@ -63,7 +63,7 @@
   (define-syntax let
     (er-macro-transformer
      (lambda (expr r compare)
-       (if (symbol? (cadr expr))
+       (if (identifier? (cadr expr))
            (begin
              (define name (cadr expr))
              (define bindings (caddr expr))