Only the last (display ...) prints added by Reid 10 hours ago
(module (let-bug) ()
(import scheme
(chicken base))
(define (main)
(display "do stuff") (newline)
(let ((switch? #t))
(cond
((read) (display "Accepted 1") (newline))
((read) (display "Accepted 2") (newline))
((read) (display "Accepted 3") (newline))
((read) (display "Accepted 4") (newline))
((read) (display "Accepted 5") (newline))
(else (set! switch? #f)))
(when switch?
(display "Denied all") (newline))))
(display "do more stuff") (newline)
)