The Lambda Lab
/
projects
/
scheme.forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Fixed bug in MCE. Now working!
[scheme.forth.jl.git]
/
examples
/
metacirc.scm
diff --git
a/examples/metacirc.scm
b/examples/metacirc.scm
index
f28367b
..
170adaa
100644
(file)
--- a/
examples/metacirc.scm
+++ b/
examples/metacirc.scm
@@
-88,6
+88,13
@@
env)
'ok)
+(define (eval-definition exp env)
+ (define-variable!
+ (definition-variable exp)
+ (eval (definition-value exp) env)
+ env)
+ 'ok)
+
(define (self-evaluating? exp)
(cond ((number? exp) true)
((string? exp) true)