1 files changed, 5 insertions, 1 deletions
diff --git a/tuplr.cpp b/tuplr.cpp
index a8c4612..788cd0e 100644
--- a/tuplr.cpp
+++ b/tuplr.cpp
@@ -265,9 +265,13 @@ eval(CEnv& cenv, const string& name, istream& is)
 
 		// Create function for top-level of program
 		CFunction f = cenv.engine()->startFunction(cenv, "main", resultType, ATuple(cursor));
+		
+		// Print CPS form
+		CValue val = NULL;
+		/*for (list< pair<SExp, AST*> >::const_iterator i = exprs.begin(); i != exprs.end(); ++i)
+			cout << "CPS: " << i->second->cps(cenv.tenv, cenv.penv.sym("cont")) << endl;*/
 
 		// Compile all expressions into it
-		CValue val = NULL;
 		for (list< pair<SExp, AST*> >::const_iterator i = exprs.begin(); i != exprs.end(); ++i)
 			val = cenv.compile(i->second);