; 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?))