From a1f7e3a8eed67916cde5cdfee3068ba8e047dd6c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 23 Jun 2015 22:37:17 -0400
Subject: [PATCH] Debugging using csi

---
 test2.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test2.scm b/test2.scm
index 90ec41fb..37702a9d 100644
--- a/test2.scm
+++ b/test2.scm
@@ -1,6 +1,6 @@
-(import (scheme base)
-        (scheme file)
-        (scheme write))
+;(import (scheme base)
+;        (scheme file)
+;        (scheme write))
 
 ; TODO: I think this compiles OK (test), but interpreter does not like it:
 ;cyclone> ( call-with-output-file "test.txt" (lambda () #f))
@@ -30,7 +30,7 @@
            (else
              (error "bad parameter syntax"))))))
     (define my-param
-      (my-make-parameter (Cyc-stdout)))
+      (my-make-parameter (current-output-port)));(Cyc-stdout)))
 (define old (my-param))
 (define new (my-param '<param-convert> (open-output-file "test.txt")))
 ; The next line seems to crash in icyc but not in compiled code (until write, at least). what's going on??