Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

grudingly supporting MV continuations

Browse source
This commit is contained in:
Alex Shinn 2011-05-25 23:29:30 +09:00
parent 8b6c8afd3f
commit ad30b48a9f
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/init.scm
View file

@ -569,11 +569,13 @@
(define *values-tag* (list 'values)) (define *values-tag* (list 'values))
(define (values . ls) (define (%values ls)
(if (and (pair? ls) (null? (cdr ls))) (if (and (pair? ls) (null? (cdr ls)))
(car ls) (car ls)
(cons *values-tag* ls))) (cons *values-tag* ls)))
(define (values . ls) (%values ls))
(define (call-with-values producer consumer) (define (call-with-values producer consumer)
(let ((res (producer))) (let ((res (producer)))
(if (and (pair? res) (eq? *values-tag* (car res))) (if (and (pair? res) (eq? *values-tag* (car res)))
@ -604,7 +606,7 @@
(define (call-with-current-continuation proc) (define (call-with-current-continuation proc)
(let ((dk *dk*)) (let ((dk *dk*))
(%call/cc (lambda (k) (proc (lambda (x) (set-dk! dk) (k x))))))) (%call/cc (lambda (k) (proc (lambda x (set-dk! dk) (k (%values x))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; syntax-rules ;; syntax-rules