From 5a4cfea75c0efc6cc01389b3ad6ade5ac0487348 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 23 Jun 2015 21:25:50 -0400
Subject: [PATCH] Debug

---
 test2.scm | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/test2.scm b/test2.scm
index 382799d5..950102da 100644
--- a/test2.scm
+++ b/test2.scm
@@ -7,9 +7,17 @@
 ;Error: Unable to evaluate:  ((procedure () ...) <port>)
 
 ; TODO: need to get this working in compiler, then try interpreter:
-(with-output-to-file 
-  "test.out" 
-  (lambda ()
-    (write 'hello)
-    (display " ")
-    (display 'world)))
+;(with-output-to-file 
+;  "test.out" 
+;  (lambda ()
+;    (write 'hello)
+;    (display " ")
+;    (display 'world)))
+
+; BEGIN test code - trying to get definition of with-output-to-file to work
+(define old (current-output-port))
+(define new (current-output-port '<param-convert> (open-output-file "test.txt")))
+(current-output-port '<param-set!> new)
+(write 'test (current-output-port))
+;(write 'hello-world)
+; END test code