@ -7,6 +7,7 @@ A small example:
(capture-signal! 'SIGUSR1)
(capture-signal! 'SIGUSR2)
(printf "Try 'kill -USR1 ~a' and 'kill -USR2 ~a'\n" (getpid) (getpid))
(let loop ()
(define signum (read-signal))
(printf "Received signal ~v (name ~v)\n" signum (lookup-signal-name signum))