X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=examples%2Fmetacirc.scm;h=f28367b2dd502703dfdb5fdd8a6a802e782e2435;hp=d63e685b6b88933b54780e77a378017778653ffa;hb=840b141d1ea220f15fc5f46b889ab37e24ebf0c9;hpb=133e62278bc80778a34f1ec1fdded5ec0bfb6b5e

diff --git a/examples/metacirc.scm b/examples/metacirc.scm
index d63e685..f28367b 100644
--- a/examples/metacirc.scm
+++ b/examples/metacirc.scm
@@ -329,6 +329,7 @@
     (define-variable! 'false false initial-env)
     initial-env))
 
+
 (define (primitive-procedure? proc)
   (tagged-list? proc 'primitive))
 
@@ -352,8 +353,6 @@
          (list 'primitive (cadr proc)))
        primitive-procedures))
 
-
-
 (define (apply-primitive-procedure proc args)
     (apply-in-underlying-scheme
          (primitive-implementation proc) args))
@@ -390,4 +389,6 @@
             '<procedure-env>))
     (display object)))
 
-;; (define the-global-environment (setup-environment))
+
+(define the-global-environment (setup-environment))
+