~ chicken-core (chicken-5) c108e75fe4c960e8e4f28aa463a20d0ceb5e979d

commit c108e75fe4c960e8e4f28aa463a20d0ceb5e979d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Dec 6 16:06:27 2018 +0100
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Fri Dec 7 20:24:34 2018 +0100

    Drop "paranoid" interrupt check.
    
    Obsolete, was used for debugging once.
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/chicken.h b/chicken.h
index 2d47f542..7a2f3a14 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1287,11 +1287,7 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret;
 #define C_string_to_lambdainfo(s)       (C_block_header(s) = C_header_size(s) | C_LAMBDA_INFO_TYPE, C_SCHEME_UNDEFINED)
 
 #ifdef C_TIMER_INTERRUPTS
-# ifdef PARANOIA
-#  define C_check_for_interrupt         C_paranoid_check_for_interrupt()
-# else
-#  define C_check_for_interrupt         if(--C_timer_interrupt_counter <= 0) C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER)
-# endif
+# define C_check_for_interrupt         if(--C_timer_interrupt_counter <= 0) C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER)
 #else
 # define C_check_for_interrupt
 #endif
@@ -1742,7 +1738,6 @@ C_fctexport C_word C_fcall C_a_i_provide(C_word **a, int c, C_word id) C_regparm
 C_fctexport C_word C_fcall C_i_providedp(C_word id) C_regparm;
 C_fctexport C_word C_fcall C_enable_interrupts(void) C_regparm;
 C_fctexport C_word C_fcall C_disable_interrupts(void) C_regparm;
-C_fctexport void C_fcall C_paranoid_check_for_interrupt(void) C_regparm;
 C_fctexport void C_set_or_change_heap_size(C_word heap, int reintern);
 C_fctexport void C_do_resize_stack(C_word stack);
 C_fctexport C_word C_resize_pending_finalizers(C_word size);
diff --git a/runtime.c b/runtime.c
index fe570f4d..2a5415fa 100644
--- a/runtime.c
+++ b/runtime.c
@@ -4947,12 +4947,6 @@ C_regparm C_word C_fcall C_i_allocated_finalizer_count(void)
   return C_fix(allocated_finalizer_count);
 }
 
-C_regparm void C_fcall C_paranoid_check_for_interrupt(void)
-{
-  if(--C_timer_interrupt_counter <= 0)
-    C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER);
-}
-
 
 C_regparm void C_fcall C_raise_interrupt(int reason)
 {