Signal handlers: high CPU usage on chickens >= 4.8.0 added by mario-goulart on Wed Feb 27 20:28:29 2013

;; Press C-c multiple times in an interval < 20s

(use posix)

(set-signal-handler!
 signal/int
 (lambda (signal)
   (print "caught signal" signal)
   (sleep 20)))


(let loop ()
  (sleep 1)
  (loop))