Pass optional arguments from FORK-THREAD to SPAWN.

This commit is contained in:
sperber 2002-02-04 11:34:17 +00:00
parent 67c3a9114c
commit baf1dbbf76
1 changed files with 2 additions and 2 deletions

View File

@ -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))