Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-07 13:16:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Setting stage for debugging issues with param objs

Browse source
This commit is contained in:
Justin Ethier 2015-06-23 21:36:44 -04:00
parent 5a4cfea75c
commit 5f3b082e27
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
test2.scm
View file

@ -17,7 +17,8 @@
; BEGIN test code - trying to get definition of with-output-to-file to work ; BEGIN test code - trying to get definition of with-output-to-file to work
(define old (current-output-port)) (define old (current-output-port))
(define new (current-output-port '<param-convert> (open-output-file "test.txt"))) (define new (current-output-port '<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??
(current-output-port '<param-set!> new) (current-output-port '<param-set!> new)
(write 'test (current-output-port)) ;(write 'test (current-output-port))
;(write 'hello-world) ;(write 'hello-world)
; END test code ; END test code