Pass optional arguments from FORK-THREAD to SPAWN.
This commit is contained in:
parent
67c3a9114c
commit
baf1dbbf76
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue