#lang racket ;Stencil responsible TA: swaxman1 (require test-engine/racket-tests) (provide generator next) (define (raise-stop-iteration-error) (error "StopIteration: Generator is exhausted.")) (struct a-generator #|FILL|#) (define-syntax generator ;FILL ) (define (next gen) ;FILL ) (define my-generator ((generator (a) (begin (yield a) (+ 1 a))) 5)) (check-expect (next my-generator) 5) (check-expect (next my-generator) 6) (test)