4 (define (list-of-values exps env)
5 (define (iter valuelist expressions)
6 (if (no-operands? exps)
8 (let ((value (eval (first-operand expressions) env)))
9 (iter (append valuelist (list value))
10 (rest-operands expressions)))))
14 (define (list-of-values exps env)
15 (if (no-operands? exps)
17 (let ((right (list-of-values (rest-exps exps) env)))
18 (cons (eval (first-exp exps) env)