It’s a simple modification of your code:
(let* ((mid (quotient (+ a b) 2)) (gpq1-thread (thread-start! (make-thread (lambda () (ch-split a mid))))) ;; modified (gpq2 (ch-split mid b)) (gpq1 (thread-join! gpq1-thread)) ;; added (g1 (car gpq1)) (p1 (cadr gpq1)) (q1 (caddr gpq1)) (g2 (car gpq2)) (p2 (cadr gpq2)) (q2 (caddr gpq2)))
Marc
On Dec 11, 2016, at 3:59 PM, Bradley Lucier lucier@math.purdue.edu wrote:
On 12/11/2016 01:59 PM, Bradley Lucier wrote:
More seriously, I just looked through the thread section of the Gambit manual and I do not yet understand the thread model that you've built into Gambit. So I don't know how to do what you want.
Perhaps someone on the list can hack up something.
Brad