Tweak to example
This commit is contained in:
parent
ca32d290fc
commit
ed90022d80
|
@ -7,6 +7,7 @@ A small example:
|
||||||
|
|
||||||
(capture-signal! 'SIGUSR1)
|
(capture-signal! 'SIGUSR1)
|
||||||
(capture-signal! 'SIGUSR2)
|
(capture-signal! 'SIGUSR2)
|
||||||
|
(printf "Try 'kill -USR1 ~a' and 'kill -USR2 ~a'\n" (getpid) (getpid))
|
||||||
(let loop ()
|
(let loop ()
|
||||||
(define signum (read-signal))
|
(define signum (read-signal))
|
||||||
(printf "Received signal ~v (name ~v)\n" signum (lookup-signal-name signum))
|
(printf "Received signal ~v (name ~v)\n" signum (lookup-signal-name signum))
|
||||||
|
|
Loading…
Reference in New Issue