From 8e64b7a40d0513bc32ed9522e858065635c9bfa5 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 13 Jul 2015 22:17:32 -0400
Subject: [PATCH] WIP

---
 cgen.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cgen.scm b/cgen.scm
index 348c1bcb..1567c7f6 100644
--- a/cgen.scm
+++ b/cgen.scm
@@ -145,9 +145,10 @@
 ;; Add function to trace, if not already set
 (define (st:add-function! trace fnc)
   (if (null? (cdr trace))
-    (set-cdr! trace fnc)
-    #f))
+    (cons (car trace) fnc)
+    trace))
 
+TODO: don't just do this, need to output as valid C code...
 (define (st:->code trace)
   ;;(write `(JAE DEBUG ,trace))
   (if (or (not (pair? trace))