From 4dd24741a8c93502689802df4f51d8bfc5e0c153 Mon Sep 17 00:00:00 2001 From: shivers Date: Mon, 11 Nov 1996 17:05:54 +0000 Subject: [PATCH] Minor bugfix -- Arranged to export set-enabled-interrupts! as set-enabled-interrupts. --- scsh/sighandlers.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/scsh/sighandlers.scm b/scsh/sighandlers.scm index 13e731c..6dfbb71 100644 --- a/scsh/sighandlers.scm +++ b/scsh/sighandlers.scm @@ -26,7 +26,7 @@ ;;; * Only during a F_SETLKW ;;; ;;; From rts/interrupt.scm (package interrupts, interface interrupts-interface) -;;; WITH-INTERRUPTS INTERRUPT-HANDLERS SET-ENABLED-INTERRUPTS +;;; WITH-INTERRUPTS INTERRUPT-HANDLERS SET-ENABLED-INTERRUPTS ! ;;; ENABLED-INTERRUPTS ;;; Must define WITH-INTERRUPTS* and WITH-INTERRUPTS. @@ -54,6 +54,11 @@ (lp (cdr ints) (bitwise-ior ans (arithmetic-shift 1 (- (car ints) 1)))) ans))) +;;; I'm trying to be consistent about the ! suffix -- I don't use it +;;; when frobbing process state. This is not a great rule; perhaps I +;;; should change it. +(define set-enabled-interrupts set-enabled-interrupts!) + (define-simple-syntax (with-enabled-interrupts mask body ...) (with-interrupts mask (lambda () body ...)))