From 4f84e3cb99cd2af24793f67e702f5f9936785132 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 14 Apr 2003 09:45:58 +0000
Subject: [PATCH] Removed pause-until-interrupt.

---
 RELEASE                      |  4 ++++
 doc/scsh-manual/syscalls.tex | 11 +++++++++--
 scsh/syscalls.scm            |  3 ---
 3 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/RELEASE b/RELEASE
index 9756e4a..ab6ccac 100644
--- a/RELEASE
+++ b/RELEASE
@@ -186,6 +186,10 @@ We manage the project using SourceForge:
    - Renamed string-filter to make-string-filter and char-filter to
      make-char-port-filter
 
+** API changes
+   pause-until-interrupt has been removed because it is not compatible
+   with the thread system
+
 * New in 0.6.3
 ==============
 
diff --git a/doc/scsh-manual/syscalls.tex b/doc/scsh-manual/syscalls.tex
index 1c91740..d7a0ec0 100644
--- a/doc/scsh-manual/syscalls.tex
+++ b/doc/scsh-manual/syscalls.tex
@@ -2560,8 +2560,15 @@ The \var{proc} and \var{prgrp} arguments are either processes
 or integer process ids.
 \end{desc}
 
-\defun{itimer}{???} \undefined
-\defunx{pause-until-interrupt}{} \undefined
+\defun{itimer}{secs} \undefined
+\begin{desc}
+  Schedules a timer interrupt in \var{secs} seconds.
+\end{desc}
+\begin{note}
+  As the thread system needs the timer interrupt for its own purpose,
+  \ex{itimer} works by spawning a thread which calls the interrupt
+  handler for \ex{interrupt/alrm} after the specified time.
+\end{note}
 
 \defun{process-sleep}{secs} \undefined
 \defunx{process-sleep-until}{time}\undefined
diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm
index d25e14f..fa77b92 100644
--- a/scsh/syscalls.scm
+++ b/scsh/syscalls.scm
@@ -432,9 +432,6 @@
 ;;; (define-errno-syscall (signal-process-group proc-group signal)
 ;;;   signal-process-group/errno)
 
-(define (pause-until-interrupt)
-  (next-sigevent (most-recent-sigevent) full-interrupt-set))
-
 
 ;;; User info
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;