dolist.ss

(define (eval-dolist exp env)
  (let ((lst (eval (dolist-listexpr exp env))) ; evaluate the list
        (startval (eval (dolist-resultvar exp env)))) ;evaluate the resultvar
    (define (dolist-iteration lst result)
      (if (null? lst)
          result
          (dolist-iteration 
           (rest lst) 
           (apply-%scheme
            (eval-%scheme (make-lambda (list (dolist-variable exp) lst (dolist-resultvar exp))
                               (append (dolist-body exp) (list (dolist-resultvar exp)))))
            (list (first lst) result)))))
    (dolist-iteration lst startval)))