From 31894f189480546cf6efa39913a054353f2503d4 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 9 Jan 2001 15:55:03 +0000
Subject: [PATCH] itimer moved to syscalls but is implemented via
 rts/events.scm

---
 scsh/syscalls.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm
index ff05dbc..e59baab 100644
--- a/scsh/syscalls.scm
+++ b/scsh/syscalls.scm
@@ -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))