Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (15 sloc) 486 Bytes
#lang racket
;; Example 4.1
;; very not sure
(define (list-of-values-l exps env)
(if (no-operands? exps)
'()
(let* ((first (eval (first-operand exps) env))
(rest (list-of-values-l (rest-operands exps) env)))
(cons first rest))))
(define (list-of-values-r exps env)
(if (no-operands? exps)
'()
(let* ((rest (list-of-values-r (rest-operands exps) env))
(first (eval (first-operand exps) env)))
(cons rest first))))
Something went wrong with that request. Please try again.