Re: Return value of finished threads

[Michael Albinus]

Eli Zaretskii <address@hidden> writes:

>> (require 'thunk)
>> (defmacro thunk-delay-in-thread (&rest body)
>>   (declare (debug body))
>>   (let ((result-var (make-symbol "result")))
>>     `(let* ((,result-var nil)
>>             (thread (make-thread
>>                      (lambda ()
>>                        (setq ,result-var ,(macroexp-progn body))))))
>>        (thunk-delay (progn (thread-join thread) ,result-var)))))
>> 
>> (let ((thunks
>>        (mapcar
>>         (lambda (x) (thunk-delay-in-thread
>>                      (message "computing square of %d" x) (* x x)))
>>         (number-sequence 1 10))))
>>   ;; Run this thread first, just to make things more interesting.
>>   (thunk-force (nth 5 thunks))
>>   ;; Get all the values.
>>   (mapcar #'thunk-force thunks))
>
> This sounds gross to me, FWIW.

Yes. See my other mail for an implementation in threads.c.

Best regards, Michael.