(define make-constant (lambda (x) x)) (define constant? number?)An expression tree ADT:
(define make-expr (lambda (left-operand operator right-operand) (list left-operand operator right-operand))) (define operator cadr) (define left-operand car) (define right-operand caddr)