>From 59ac1b07ee3a6cc647edf17d4f63006133b9beed Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 6 Oct 2012 18:26:32 +0200 Subject: [PATCH] Fixed scrutiny db type entry for signal-handler: it will return #f when no handler was installed --- types.db | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/types.db b/types.db index 9ee8ef8..2e37ea8 100644 --- a/types.db +++ b/types.db @@ -1742,7 +1742,7 @@ (set-signal-handler! (#(procedure #:clean #:enforce) set-signal-handler! (fixnum (or boolean (procedure (fixnum) . *))) undefined)) (set-signal-mask! (#(procedure #:clean #:enforce) set-signal-mask! ((list-of fixnum)) undefined)) (setenv (#(procedure #:clean #:enforce) setenv (string string) undefined)) -(signal-handler (#(procedure #:clean #:enforce) signal-handler (fixnum) (procedure (fixnum) . *))) +(signal-handler (#(procedure #:clean #:enforce) signal-handler (fixnum) (or boolean (procedure (fixnum) . *)))) (signal-mask (#(procedure #:clean) signal-mask () fixnum)) (signal-mask! (#(procedure #:clean #:enforce) signal-mask! (fixnum) undefined)) (signal-masked? (#(procedure #:clean #:enforce) signal-masked? (fixnum) boolean)) -- 1.7.9.1