Tweak to example

This commit is contained in:
Tony Garnock-Jones 2016-09-13 18:17:57 -04:00
parent ca32d290fc
commit ed90022d80
1 changed files with 1 additions and 0 deletions

View File

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