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

Debugging using csi

Browse source
This commit is contained in:
Justin Ethier 2015-06-23 22:37:17 -04:00
parent 3d7adf0a9f
commit a1f7e3a8ee
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test2.scm
View file

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