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

Return actual port from current-output-port

Browse source
This commit is contained in:
Justin Ethier 2015-06-10 23:07:04 -04:00
parent e8ff0509ea
commit af9f2b87d2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/base.sld
View file

@ -283,7 +283,7 @@
(else (else
(error "bad parameter syntax")))))) (error "bad parameter syntax"))))))
(define current-output-port (define current-output-port
(make-parameter 'TODO-Cyc-stdout)) ;; TODO: need to expose stdout as a port obj (make-parameter (Cyc-stdout)))
(define (error msg . args) (define (error msg . args)
(raise (cons msg args))) (raise (cons msg args)))
(define (raise obj) (define (raise obj)