4.1 もともとの list-of-values (define (list-of-values exps env) (if (no-operands? exps) '() (cons (eval (first-operand exps) env) (list-of-values (rest-operands exps) env)))) cons の引数をあらかじめ評価してやれば良いので 左から右 (define (…