(define (wait-on-event!) (%call/cc abort))