Q about interrupt and catch

[Mike Gran]

Hi all,

This is probably a simple question, but, I can't figure it out.

I have a program with a big main loop like this

(while #t
 (let ((c (read-char port)))
   (cond
    ... many different possible operations, depending on c
    )))

I want to make it so, when the program receives a SIGINT, it aborts
the operation in progress and restarts this big main loop.

Any hints?

Thanks,
Mike Gran