17 lines
496 B
Scheme
17 lines
496 B
Scheme
; Copyright (c) 1999-2001 by Martin Gasbichler. See file COPYING.
|
|
|
|
;;; Extend the functions of the RTS
|
|
|
|
(define (wait-interrupt type pre-event)
|
|
(rts-wait-interrupt type pre-event eq?))
|
|
|
|
(define (wait-interrupt-set set pre-event)
|
|
(rts-wait-interrupt set pre-event interrupt-in-set?))
|
|
|
|
(define (maybe-wait-interrupt type pre-event)
|
|
(rts-maybe-wait-interrupt type pre-event eq?))
|
|
|
|
(define (maybe-wait-interrupt-set set pre-event)
|
|
(rts-maybe-wait-interrupt set pre-event interrupt-in-set?))
|
|
|