From baf1dbbf7666f00f7b6dae6e1bfde68d901aabe5 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Mon, 4 Feb 2002 11:34:17 +0000
Subject: [PATCH] Pass optional arguments from FORK-THREAD to SPAWN.

---
 scheme/big/thread-fluid.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/big/thread-fluid.scm b/scheme/big/thread-fluid.scm
index 1f7c5f2..779b166 100644
--- a/scheme/big/thread-fluid.scm
+++ b/scheme/big/thread-fluid.scm
@@ -67,5 +67,5 @@
     (lambda ()
       (apply let-thread-fluids args))))
 
-(define (fork-thread thunk)
-  (spawn (preserve-thread-fluids thunk)))
+(define (fork-thread thunk . rest)
+  (apply spawn (preserve-thread-fluids thunk) rest))