Merge branch 'master' of github:dumbs/2010-m1s1-compilation

This commit is contained in:
Georges Dupéron 2010-11-01 16:18:21 +01:00
commit 0d0e68fbee

View File

@ -45,7 +45,7 @@ par le compilateur et par linterpré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))