diff options
Diffstat (limited to 'lore/sicp/meta.scm')
-rw-r--r-- | lore/sicp/meta.scm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/lore/sicp/meta.scm b/lore/sicp/meta.scm deleted file mode 100644 index 94dc784..0000000 --- a/lore/sicp/meta.scm +++ /dev/null @@ -1,20 +0,0 @@ -(define (eval exp env) - (cond - ((self-evaluating? exp) exp) - ((variable? exp) (lookup-variable-value exp env)) - ((quoted? exp) (text-of-quotation exp)) - ((assignment? exp) (eval-assignment exp env)) - ((definition? exp) (eval-definition exp env)) - ((if? exp) (eval-if exp env)) - ((lambda? exp) - (make-procedure (lambda-parameters exp) - (lambda-body exp) - env)) - ((begin? exp) - (eval-sequence (begin-actions exp) env)) - ((cond? exp) (eval (cond->if exp) env)) - ((application? exp) - (apply (eval (operator exp) env) - (list-of-values (operands exp) env))) - (else - (error "Unknown expression type -- EVAL" exp)))) |