suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r15818

Browse Source
This commit is contained in:
Eli Barzilay 2009-08-27 20:34:18 +00:00
parent 40115cb251
commit 9ecbffa70e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/generator.ss
View File

@ -28,10 +28,10 @@
(splicing-syntax-parameterize ([yield (make-rename-transformer #'yielder)]) (splicing-syntax-parameterize ([yield (make-rename-transformer #'yielder)])
(define (cont) (define (cont)
(reset-at tag (reset-at tag
(let ([result (begin body0 body ...)]) (let ([retval (begin body0 body ...)])
;; normal return: ;; normal return:
(set! cont (lambda () result)) (set! cont (lambda () retval))
result)))) retval))))
(define (generator) (cont)) (define (generator) (cont))
generator)) generator))