Changed let to not introduce any extra variables (for parallel

[clinton/parenscript.git] / src / special-forms.lisp

diff --git a/src/special-forms.lisp b/src/special-forms.lisp
index ab4084e..e525e8e 100644 (file)
--- a/src/special-forms.lisp
+++ b/src/special-forms.lisp
@@ -608,7 +608,7 @@ lambda-list::=
   `(simple-let* ,bindings ,@body))
 
 (defpsmacro let (bindings &body body)
-  `(simple-let ,bindings ,@body))
+  `(,(if (= 1 (length bindings)) 'simple-let* 'simple-let) ,bindings ,@body))
 
 (define-ps-special-form let1 (expecting binding &rest body)
   (ecase expecting