www

commit 02dd04e7a9ad3d30d7e07df4b603a5e0ca2762a5
parent 5652d4deba6496fefdd7495bc076416119db9223
Author: Bertrand BRUN <bertrand.brun@me.com>
Date:   Mon,  1 Nov 2010 16:01:43 +0100

Ajout d'une idee a Georges sur le LET

Diffstat:
M
lisp2li.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp2li.lisp b/lisp2li.lisp
@@ -45,7 +45,7 @@ par le compilateur et par l’interpréteur"
          (cons :call (cons 'set-binding (list `(:lit . ,env)
                                               (cons :lit (second expr))
                                               (cons :lit (third expr))))))
-        ((eq 'let (car expr))
+        ((eq 'let (car expr)) ;; Idee de Georges :  (let ((x 1) (y 2) (z 3)) (list x y z)) === ((lambda (x y z) (list x y z)) 1 2 3)
          (push-new-env env "LET")
          (map-lisp2li-let expr env))
         ((macro-function (car expr))