scsh-0.6/scsh/event.scm

; 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?))
Built the event system directly into the RTS. Built sighandlers above it. Removed machinery in low-interrupt. 2001-01-09 10:52:52 -05:00			`; Copyright (c) 1999-2001 by Martin Gasbichler. See file COPYING.`
Added files from david fishers home (~dfisher/scsh-0.5.1). Be warned: the scsh-version he started from was neither 0.5.1 nor 0.5.2, but something in between ! 1999-09-14 09:32:05 -04:00
Built the event system directly into the RTS. Built sighandlers above it. Removed machinery in low-interrupt. 2001-01-09 10:52:52 -05:00			`;;; Extend the functions of the RTS`
Added files from david fishers home (~dfisher/scsh-0.5.1). Be warned: the scsh-version he started from was neither 0.5.1 nor 0.5.2, but something in between ! 1999-09-14 09:32:05 -04:00
			`(define (wait-interrupt type pre-event)`
Built the event system directly into the RTS. Built sighandlers above it. Removed machinery in low-interrupt. 2001-01-09 10:52:52 -05:00			`(rts-wait-interrupt type pre-event eq?))`
Added files from david fishers home (~dfisher/scsh-0.5.1). Be warned: the scsh-version he started from was neither 0.5.1 nor 0.5.2, but something in between ! 1999-09-14 09:32:05 -04:00
just a snapshot 1999-09-23 10:36:25 -04:00			`(define (wait-interrupt-set set pre-event)`
Built the event system directly into the RTS. Built sighandlers above it. Removed machinery in low-interrupt. 2001-01-09 10:52:52 -05:00			`(rts-wait-interrupt set pre-event interrupt-in-set?))`
just a snapshot 1999-09-23 10:36:25 -04:00
Built the event system directly into the RTS. Built sighandlers above it. Removed machinery in low-interrupt. 2001-01-09 10:52:52 -05:00			`(define (maybe-wait-interrupt type pre-event)`
			`(rts-maybe-wait-interrupt type pre-event eq?))`
just a snapshot 1999-09-23 10:36:25 -04:00
Built the event system directly into the RTS. Built sighandlers above it. Removed machinery in low-interrupt. 2001-01-09 10:52:52 -05:00			`(define (maybe-wait-interrupt-set set pre-event)`
			`(rts-maybe-wait-interrupt set pre-event interrupt-in-set?))`
just a snapshot 1999-09-23 10:36:25 -04:00