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

Test now that the generator is not in a running state when it's called.

Browse Source 
The previous problem was just a bug.

svn: r17984
This commit is contained in:
Eli Barzilay 2010-02-05 03:22:15 +00:00
parent d5822a3ee5
commit 2368290cdb
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/scheme/generator.ss
View File

@ -64,16 +64,15 @@
(lambda () (begin body0 body ...)) (lambda () (begin body0 body ...))
;; get here only on at the end of the generator ;; get here only on at the end of the generator
(lambda rs (lambda rs
(set! state 'done) (set! cont (lambda () (set! state 'done) (apply values rs)))
(set! cont (lambda () (apply values rs)))
(cont)))))) (cont))))))
(define (err [what "send a value to"]) (define (err [what "send a value to"])
(error 'generator "cannot ~a a ~a generator" what state)) (error 'generator "cannot ~a a ~a generator" what state))
(define generator (define generator
(case-lambda (case-lambda
[() (if #t ; (memq state '(fresh suspended done)) [() (if (eq? state 'running)
(begin (set! state 'running) (cont)) (err "call")
(err "call"))] (begin (set! state 'running) (cont)))]
;; yield-tag means return the state (see `generator-state' below) ;; yield-tag means return the state (see `generator-state' below)
[(x) (cond [(eq? x yield-tag) state] [(x) (cond [(eq? x yield-tag) state]
[(memq state '(suspended running)) [(memq state '(suspended running))