www

commit 5809570f57276902753e0eaea8cd9701f85841db
parent a71ac816341dbfa67512765a9dbc33773e624f77
Author: Georges Dupéron <jahvascriptmaniac+github@free.fr>
Date:   Tue,  2 Nov 2010 01:47:52 +0100

Import des corrections apportées à implementation/divers.lisp dans ma branche de bidouilles.

Diffstat:
M
implementation/divers.lisp
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/implementation/divers.lisp b/implementation/divers.lisp
@@ -102,15 +102,15 @@
 
 (defmacro let (bindings &rest body)
   `((lambda ,(mapcar #'car bindings)
-	  ,body)
-	,(mapcar #'cdar bindings)))
+	  ,@body)
+	,@(mapcar #'cadr bindings)))
 
 (defmacro let* (bindings &rest body)
   (if (endp bindings)
-      body
-    `(let (,(car bindings))
-       (let* ,(cdr bindings)
-         ,body))))
+      `(progn ,@body)
+      `(let (,(car bindings))
+         (let* ,(cdr bindings)
+           ,@body))))
 
 (defmacro labels (f-bindings &rest body)
   ;; TODO