mirror of
https://github.com/janet-lang/janet
synced 2024-11-28 19:19:53 +00:00
11 lines
276 B
Plaintext
11 lines
276 B
Plaintext
(defn action []
|
|
(print "Handled SIGHUP!")
|
|
(flush))
|
|
|
|
(defn main [_]
|
|
# Set the interrupt-interpreter argument to `true` to allow
|
|
# interrupting the busy loop `(forever)`. By default, will not
|
|
# interrupt the interpreter.
|
|
(os/sigaction :hup action true)
|
|
(forever))
|