summaryrefslogtreecommitdiff
path: root/lore/sicp/meta.scm
diff options
context:
space:
mode:
Diffstat (limited to 'lore/sicp/meta.scm')
-rw-r--r--lore/sicp/meta.scm20
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))))