~ chicken-core (chicken-5) 2a34013f6cb47b0f09c6a714fb9d44e3e3eeaf72

commit 2a34013f6cb47b0f09c6a714fb9d44e3e3eeaf72
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Mar 23 12:22:19 2018 +0100
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat Apr 7 21:36:30 2018 +0200

    drop "interrupts-enabled" declaration specifier, as it is redundant
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/core.scm b/core.scm
index 00eb04dc..f94e1e64 100644
--- a/core.scm
+++ b/core.scm
@@ -36,7 +36,6 @@
 ;
 ; ([not] extended-bindings {<name>})
 ; ([not] inline {<var>})
-; ([not] interrupts-enabled)
 ; ([not] safe)
 ; ([not] standard-bindings {<name>})
 ; ([not] usual-integrations {<name>})
@@ -1547,7 +1546,6 @@
        ((no-bound-checks) (set! no-bound-checks #t))
        ((no-argc-checks) (set! no-argc-checks #t))
        ((no-procedure-checks) (set! no-procedure-checks #t))
-       ((interrupts-enabled) (set! insert-timer-checks #t))
        ((disable-interrupts) (set! insert-timer-checks #f))
        ((always-bound)
 	(for-each (cut mark-variable <> '##compiler#always-bound) (stripa (cdr spec))))
@@ -1618,7 +1616,6 @@
 	   (check-decl spec 1 1)
 	   (let ((id (strip-syntax (cadr spec))))
 	     (case id
-	       [(interrupts-enabled) (set! insert-timer-checks #f)]
 	       [(safe) (set! unsafe #t)]
 	       [else (warning "unsupported declaration specifier" id)]))]))
        ((compile-syntax)
diff --git a/tests/fft.scm b/tests/fft.scm
index 5c187feb..618fcd07 100644
--- a/tests/fft.scm
+++ b/tests/fft.scm
@@ -1637,7 +1637,6 @@
 	  (define (extend-lut multiplier-lut bit-reverse-size bit-reverse-multiplier start end)
 
 	    (define (bit-reverse x n)
-	      (declare (not interrupts-enabled))
 	      (do ((i 0 (fx+ i 1))
 		   (x x (fxarithmetic-shift-right x 1))
 		   (result 0 (fx+ (fx* result 2)
@@ -1872,8 +1871,6 @@
       ;; two pass with w=1 (so W[0]=1.0 and W[1] = 0.)  and then
       ;; call recursive-bit appropriately on the two half arrays.
 
-      (declare (not interrupts-enabled))
-
       (let ((SizeOfGroup
 	     (fxarithmetic-shift-right (f64vector-length a) 1)))
 	(let loop ((J0 0))
@@ -2038,7 +2035,6 @@
 	    (main-loop M N K SizeOfGroup))))
 
     (define (radix-2-pass a)
-      (declare (not interrupts-enabled))
       (let ((SizeOfGroup
 	     (fxarithmetic-shift-right (f64vector-length a) 1)))
 	(let loop ((J0 0))