From 57463ce596c083f52a15f17348ae3d09e67064db Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 25 Feb 2003 13:15:40 +0000
Subject: [PATCH] Make SPOON an alias for FORK-THREAD.

---
 doc/scsh-manual/threads.tex | 4 ++++
 scheme/big/thread-fluid.scm | 2 ++
 scheme/more-interfaces.scm  | 3 ++-
 3 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/doc/scsh-manual/threads.tex b/doc/scsh-manual/threads.tex
index ebc72bc..765d3f0 100644
--- a/doc/scsh-manual/threads.tex
+++ b/doc/scsh-manual/threads.tex
@@ -230,6 +230,10 @@ is similar to what happens at process forking.
   to another.
 \end{itemize}
 
+\defun{spoon} {thunk} \undefined
+
+This is just an alias for \ex{fork-thread} suggested by Alan Bawden.
+
 For user and group identities arbitrary changing is not possible.
 Therefore they remain global process state: If a thread changes one of
 these values, all other threads see the new value. Consequently, scsh
diff --git a/scheme/big/thread-fluid.scm b/scheme/big/thread-fluid.scm
index 779b166..5113136 100644
--- a/scheme/big/thread-fluid.scm
+++ b/scheme/big/thread-fluid.scm
@@ -69,3 +69,5 @@
 
 (define (fork-thread thunk . rest)
   (apply spawn (preserve-thread-fluids thunk) rest))
+
+(define spoon fork-thread)
diff --git a/scheme/more-interfaces.scm b/scheme/more-interfaces.scm
index 7352af2..35fd9b1 100644
--- a/scheme/more-interfaces.scm
+++ b/scheme/more-interfaces.scm
@@ -352,7 +352,8 @@
 	  set-thread-fluid!
 	  make-preserved-thread-fluid
 	  preserve-thread-fluids
-	  fork-thread))
+	  fork-thread
+          spoon))
 
 (define-interface search-trees-interface
   (export make-search-tree