From 04f671efe055e752affeb6ad300ddda9d89b7189 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 4 May 2016 04:22:28 -0400
Subject: [PATCH] Libraries are initialized in the wrong order in the C code

---
 scheme/cyclone/opti-test.scm    | 1 +
 scheme/cyclone/optimize-cps.sld | 6 ++++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/scheme/cyclone/opti-test.scm b/scheme/cyclone/opti-test.scm
index 50655ab5..8930b710 100644
--- a/scheme/cyclone/opti-test.scm
+++ b/scheme/cyclone/opti-test.scm
@@ -3,6 +3,7 @@
         (scheme write)
         (scheme base))
 
+(adb:init!)
 (adb:set! 'v (adb:make-var))
 
 (let ((v (adb:get 'v)))
diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld
index 2f3f278d..6d871c43 100644
--- a/scheme/cyclone/optimize-cps.sld
+++ b/scheme/cyclone/optimize-cps.sld
@@ -42,9 +42,11 @@
       adbf:unused-params adbf:set-unused-params!
   )
   (begin
-    (define *adb* #f) ;(make-hash-table))
+    (define *adb* (make-hash-table))
+    ;(define *adb* #f) ;(make-hash-table))
     (define (adb:init!)
-      (set! *adb* (make-hash-table)))
+      ;(set! *adb* (make-hash-table)))
+      'TODO)
     (define (adb:get key) (hash-table-ref *adb* key))
     (define (adb:set! key val) (hash-table-set! *adb* key val))
     (define-record-type <analysis-db-variable>