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

reformat

Browse Source 
svn: r15806
This commit is contained in:
Eli Barzilay 2009-08-26 21:07:42 +00:00
parent ab7caff9bc
commit 98f9472dd4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/generator.ss
View File

@ -25,8 +25,7 @@
;; a unique tag to jump to ;; a unique tag to jump to
(define tag (make-continuation-prompt-tag)) (define tag (make-continuation-prompt-tag))
;; give the value to the sequence ;; give the value to the sequence
(define next (lambda (value) (define (next value) (shift-at tag f (values value f)))
(shift-at tag f (values value f))))
(syntax-parameterize ([yield (make-rename-transformer #'next)]) (syntax-parameterize ([yield (make-rename-transformer #'next)])
(reset-at tag body0 bodies ... (values #f last))))] (reset-at tag body0 bodies ... (values #f last))))]
[seq [seq