Ajout d'une idee a Georges sur le LET

2010-11-01 16:01:43 +01:00 · 2010-11-01 16:01:43 +01:00 · 02dd04e7a9
commit 02dd04e7a9
parent 5652d4deba
1 changed files with 1 additions and 1 deletions
--- 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))