(use posix)

(define got-signal #f)

(set-signal-handler! signal/int (lambda (sig) (set! got-signal #t)))

(signal-mask! signal/int)

(process-signal (current-process-id) signal/int)

(assert (not got-signal))