; Evaluation of LET Special Form
(define (m-let letform env)
  (m-begin
    (cdr (cdr letform))
    (m-let-bind (cadr letform) env env)
    #f) )

; Bind let vars to their initial values
(define (m-let-bind varlist env newenv)
  (if (null? varlist)
      newenv
      (m-let-bind
        (cdr varlist)
        env
        (cons (cons (car (car varlist))
                    (m-eval
                     (cadr (car varlist))
                     env))
              newenv)) ) )

Contents    Page-10    Prev    Next    Page+10    Index