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

Simple version of call-with-values

Browse source
This commit is contained in:
Justin Ethier 2016-01-27 22:32:31 -05:00
parent 163d399f07
commit 14f42a0b5a
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
scheme/base.sld
View file

@ -322,16 +322,16 @@
(if (and (not (null? args)) (null? (cdr args))) (if (and (not (null? args)) (null? (cdr args)))
(car args) (car args)
(cons (cons 'multiple 'values) args)))) (cons (cons 'multiple 'values) args))))
(define call-with-values
(lambda (producer consumer)
(let ((x (producer)))
(if ;(magic? x)
(and (pair? x) (equal? (car x) (cons 'multiple 'values)))
(apply consumer (cdr x))
(consumer x)))))
;; TODO: just need something good enough for bootstrapping (for now) ;; TODO: just need something good enough for bootstrapping (for now)
;; does not have to be perfect (this is not, does not handle call/cc or exceptions) ;; does not have to be perfect (this is not, does not handle call/cc or exceptions)
; (define call-with-values
; (lambda (producer consumer)
; (let ((x (producer)))
; (if ;(magic? x)
; (and (pair? x) (equal? (car x) (cons 'multiple 'values)))
; (apply consumer (cdr x))
; (consumer x)))))
(define (dynamic-wind before thunk after) (define (dynamic-wind before thunk after)
(before) (before)
(let ((result (thunk))) (let ((result (thunk)))