(define (eval exp env)
(cond ((self-evaluating? exp) exp)
((variable? exp) (lookup-variable-value exp env))
- ((get (type exp)) ((get (type exp)) exp env))))
+ ((type exp) ((get (type exp)) exp env))))
(define (type expr) (car expr))
-
\ No newline at end of file
+