Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Debug

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

20
test2.scm
View file

@ -7,9 +7,17 @@
;Error: Unable to evaluate: ((procedure () ...) <port>) ;Error: Unable to evaluate: ((procedure () ...) <port>)
; TODO: need to get this working in compiler, then try interpreter: ; TODO: need to get this working in compiler, then try interpreter:
(with-output-to-file ;(with-output-to-file
"test.out" ; "test.out"
(lambda () ; (lambda ()
(write 'hello) ; (write 'hello)
(display " ") ; (display " ")
(display 'world))) ; (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