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

Stub for call-with-port

Browse source
This commit is contained in:
Justin Ethier 2015-06-22 21:14:34 -04:00
parent bebacfb985
commit 920f5dfd63
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/base.sld
View file

@ -55,6 +55,11 @@
current-output-port current-output-port
current-input-port current-input-port
current-error-port current-error-port
call-with-port
; TODO: call-with-input-file
; TODO: call-with-output-file
; TODO: close-input-port
; TODO: close-output-port
error error
raise raise
raise-continuable raise-continuable
@ -84,6 +89,10 @@
(after) (after)
result))) result)))
;(apply values results)))) ;(apply values results))))
(define (call-with-port port proc)
(let ((result (proc port)))
(close-port port)
result))
(define (Cyc-bin-op cmp x lst) (define (Cyc-bin-op cmp x lst)
(cond (cond
((null? lst) #t) ((null? lst) #t)