From d904b4237942ba416a0129391fc4a301e9814cd4 Mon Sep 17 00:00:00 2001
From: felix
Date: Fri, 23 Mar 2018 12:22:19 +0100
Subject: [PATCH] drop "interrupts-enabled" declaration specifier, as it is
redundant
---
core.scm | 3 ---
tests/fft.scm | 4 ----
2 files changed, 7 deletions(-)
diff --git a/core.scm b/core.scm
index 00eb04d..f94e1e6 100644
--- a/core.scm
+++ b/core.scm
@@ -36,7 +36,6 @@
;
; ([not] extended-bindings {})
; ([not] inline {})
-; ([not] interrupts-enabled)
; ([not] safe)
; ([not] standard-bindings {})
; ([not] usual-integrations {})
@@ -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 5c187fe..618fcd0 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))
--
1.7.9.5