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 ' (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??