From b2a917e726a54a7cc3b21b8559cd166d3c2100f7 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Mon, 18 Jul 2016 14:34:37 +1200
Subject: [PATCH] Debugging.

---
 scheme.4th | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/scheme.4th b/scheme.4th
index d075e81..4dee70f 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -126,8 +126,6 @@ create-symbol ok        ok-symbol
 
 \ ---- Environments ---- {{{
 
-objvar global-env
-
 : enclosing-env ( env -- env )
     cdr ;
 
@@ -238,6 +236,10 @@ objvar env
 
 hide env
 
+objvar global-env
+nil nil nil extend-env
+global-env setobj
+
 \ }}}
 
 \ ---- Read ---- {{{
-- 
2.20.1