~ chicken-core (chicken-5) 95e32b229cc982113b1dab290761b95d8761bd3f

commit 95e32b229cc982113b1dab290761b95d8761bd3f
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sat Oct 6 18:26:32 2012 +0200
Commit:     Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Sat Oct 6 20:22:17 2012 -0300

    Fixed scrutiny db type entry for signal-handler: it will return #f when no handler was installed
    
    Signed-off-by: Mario Domenech Goulart <mario.goulart@gmail.com>

diff --git a/types.db b/types.db
index 9ee8ef8f..2e37ea83 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))