|
@@ -1420,8 +1420,8 @@ figure~\ref{fig:interp_Lint}.
|
|
|
(define v2 (interp_exp e2))
|
|
|
(fx+ v1 v2)]
|
|
|
[(Prim '- (list e1 e2))
|
|
|
- (define v1 ((interp_exp env) e1))
|
|
|
- (define v2 ((interp_exp env) e2))
|
|
|
+ (define v1 (interp_exp e1))
|
|
|
+ (define v2 (interp_exp e2))
|
|
|
(fx- v1 v2)]))
|
|
|
|
|
|
(define (interp_Lint p)
|