itimer moved to syscalls but is implemented via rts/events.scm
This commit is contained in:
parent
c1d6d368e5
commit
31894f1894
|
@ -612,7 +612,8 @@
|
|||
(else (error "Illegal proc passed to signal-process-group"
|
||||
proc-group))))
|
||||
signal))
|
||||
|
||||
(define (itimer sec)
|
||||
((structure-ref events schedule-timer-interrupt!) (* sec 1000)))
|
||||
;;; SunOS, not POSIX:
|
||||
;;; (define-foreign signal-process-group/errno
|
||||
;;; (killpg (integer proc-group) (integer signal))
|
||||
|
|
Loading…
Reference in New Issue