From 709a13808dc84ee21a8dffbedcac450dd88ccc8c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 4 May 2016 22:29:06 -0400
Subject: [PATCH] Added test code

---
 scheme/cyclone/opti-test.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/scheme/cyclone/opti-test.scm b/scheme/cyclone/opti-test.scm
index 950f07d0..e1df086f 100644
--- a/scheme/cyclone/opti-test.scm
+++ b/scheme/cyclone/opti-test.scm
@@ -1,5 +1,6 @@
 ;; Temporary file to test changes to the optimization library
 (import (optimize-cps)
+        (ast)
         (scheme write)
         (scheme base))
 
@@ -14,3 +15,8 @@
   (newline)
   (display (adbv:defined-by v))
   (newline))
+
+
+(define l (ast:make-lambda 0 '() '((write 1) (write 2) (write 3))))
+(write l)
+(newline)