scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor bugfix -- Arranged to export set-enabled-interrupts! as 

set-enabled-interrupts.
This commit is contained in:
shivers 1996-11-11 17:05:54 +00:00
parent c0ab08bd2c
commit 4dd24741a8
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scsh/sighandlers.scm
View File

@ -26,7 +26,7 @@
;;; * Only during a F_SETLKW ;;; * Only during a F_SETLKW
;;; ;;;
;;; From rts/interrupt.scm (package interrupts, interface interrupts-interface) ;;; 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 ;;; ENABLED-INTERRUPTS
;;; Must define WITH-INTERRUPTS* and WITH-INTERRUPTS. ;;; Must define WITH-INTERRUPTS* and WITH-INTERRUPTS.
@ -54,6 +54,11 @@
(lp (cdr ints) (bitwise-ior ans (arithmetic-shift 1 (- (car ints) 1)))) (lp (cdr ints) (bitwise-ior ans (arithmetic-shift 1 (- (car ints) 1))))
ans))) 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 ...) (define-simple-syntax (with-enabled-interrupts mask body ...)
(with-interrupts mask (lambda () body ...))) (with-interrupts mask (lambda () body ...)))