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

Stub for current-output-port

Browse source
This commit is contained in:
Justin Ethier 2015-06-10 21:23:55 -04:00
parent a316d0abc5
commit 7905d9b181
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/base.sld
View file

@ -51,6 +51,9 @@
vector->string vector->string
string->vector string->vector
make-parameter make-parameter
current-output-port
;current-input-port
;current-error-port
error error
raise raise
raise-continuable raise-continuable
@ -279,6 +282,8 @@
converter) converter)
(else (else
(error "bad parameter syntax")))))) (error "bad parameter syntax"))))))
(define (current-output-port)
(make-parameter 'TODO-Cyc-stdout)) ;; TODO: need to expose stdout as a port obj
(define (error msg . args) (define (error msg . args)
(raise (cons msg args))) (raise (cons msg args)))
(define (raise obj) (define (raise obj)