#lang racket

;; This will not run due to undefined terms.

;;;;;;;;;
;; 4.1 ;;
;;;;;;;;;

(define (list-of-values1 exprs env)
  ; Like list-of-values but always evaluates left to right.
  (cond [(no-operands? exprs) empty]
        [else
          (define lov-car (my-eval (first-operand exprs) env))
          (define lov-cdr (list-of-values (rest-operands exprs) env))
          (cons lov-car lov-cdr)]))

(define (list-of-values2 exprs env)
  ; Like list-of-values but always evaluates right to left.
  (cond [(no-operands? exprs) empty]
        [else
          (define lov-cdr (list-of-values (rest-operands exprs) env))
          (define lov-car (my-eval (first-operand exprs) env))
          (cons lov-car lov-cdr)]))