X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=examples%2Fmetacirc.scm;h=170adaaadca8ed00287c0e7413938c8b917207ec;hp=f28367b2dd502703dfdb5fdd8a6a802e782e2435;hb=72afc958cd27b43b8b535a28b49493f55d186983;hpb=5eea24f47ad60b69af59a76c7285ec232c29009c

diff --git a/examples/metacirc.scm b/examples/metacirc.scm
index f28367b..170adaa 100644
--- 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)