(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) )