~ chicken-core (chicken-5) 951fb5f7acb83508f3bc2749ec80e56442f4b876

commit 951fb5f7acb83508f3bc2749ec80e56442f4b876
Author:     megane <meganeka@gmail.com>
AuthorDate: Sun Oct 21 11:45:49 2018 +0300
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun Oct 21 11:25:30 2018 +0200

    * scheduler.scm: import chicken.condition for 'signal' used in ##sys#default-exception-handler
    
    Kooda found this on IRC:
    
    ;; Segfaults when run with 'csi -:x test.scm'
    (import srfi-18)
    (define (proc) (error "coucou"))
    (define th (thread-start! proc))
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/rules.make b/rules.make
index 3624a7b2..ef3df8bb 100644
--- a/rules.make
+++ b/rules.make
@@ -571,7 +571,8 @@ optimizer.c: optimizer.scm mini-srfi-1.scm \
 		chicken.sort.import.scm \
 		chicken.string.import.scm
 scheduler.c: scheduler.scm \
-		chicken.format.import.scm
+		chicken.format.import.scm \
+		chicken.condition.import.scm
 scrutinizer.c: scrutinizer.scm mini-srfi-1.scm \
 		chicken.compiler.support.import.scm \
 		chicken.format.import.scm \
diff --git a/scheduler.scm b/scheduler.scm
index b9710488..238c348e 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -133,7 +133,7 @@ inline static void C_fdset_add(int fd, int input, int output) {
 EOF
 ) )
 
-(import scheme chicken.base chicken.fixnum chicken.format)
+(import scheme chicken.base chicken.fixnum chicken.format chicken.condition)
 
 (include "common-declarations.scm")