摘要： ``` #lang scheme (require rnrs/base-6) (require rnrs/mutable-pairs-6) (define (eval exp env) (cond ((self-evaluating? exp) exp) ;自求值 ((variable? exp) (lookup-variable-value exp env)) ;变量 ... 阅读全文