From 74b5cc11b725dfa232a2dc4f1d7d885c7dcf842b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 9 Jul 2015 21:42:56 -0400
Subject: [PATCH] Export *trace-level*

---
 TODO                          | 4 ----
 scheme/cyclone/transforms.sld | 2 +-
 test2.scm                     | 2 ++
 3 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/TODO b/TODO
index 9b1a0e2d..05e1a08d 100644
--- a/TODO
+++ b/TODO
@@ -12,10 +12,6 @@ Working TODO list:
 
  - self-hosting, there are a lot of accumulated TODO's that need to be addressed
 
-   - why does the -t option not work in self-hosted executable?
-     need to figure this out, assume some underlying defect
-     should have been an error because *trace-level* is not exported from transforms module.
-
    - improved error handling:
      - code traces
      - type checking
diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 67def32a..2d39cafd 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -12,7 +12,7 @@
   (export
     ;*defined-macros* 
     *do-code-gen*
-    ;*trace-level*
+    *trace-level*
     *primitives*
     built-in-syms
     trace
diff --git a/test2.scm b/test2.scm
index c904e548..7f5a6961 100644
--- a/test2.scm
+++ b/test2.scm
@@ -2,6 +2,8 @@
         (scheme file)
         (scheme write))
 
+(set! x 1)
+(write x)
 (write 'Cyc_procedure)
 ;;; TODO: C macros for funcall1, etc are not being generated even though entries are set
 ;;;    in the vector. must be another problem inspecting the vector ???