(require-extension (srfi 18)) (define threadjob (lambda(value) (thread-sleep! (seconds->time (+ (time->seconds (current-time)) value))) (display "In thread")(newline) value)) (let* ((result #f) (dotask (lambda(arg) (display "task harness")(newline) (let ((thisresult (threadjob arg))) thisresult))) (threads (map (lambda(x) (display "build thread")(newline) (thread-start! (make-thread (lambda() (dotask x))))) '(3 5 8 9 2 4)))) result) (thread-sleep! (seconds->time (+ (time->seconds (current-time)) 5))) (newline)