5 lines
169 B
Scheme
5 lines
169 B
Scheme
(import (srfi 18))
|
|
(define (parallel-execute . thunks)
|
|
(let ((threads (map make-thread thunks)))
|
|
(for-each thread-start! threads)
|
|
(for-each thread-join! threads)))
|