From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Eli Zaretskii Newsgroups: gmane.emacs.devel Subject: Re: Return value of finished threads Date: Fri, 20 Jul 2018 20:31:52 +0300 Message-ID: <83tvotzud3.fsf@gnu.org> References: <87h8kuq7kf.fsf@gmx.de> NNTP-Posting-Host: blaine.gmane.org X-Trace: blaine.gmane.org 1532107856 17095 195.159.176.226 (20 Jul 2018 17:30:56 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Fri, 20 Jul 2018 17:30:56 +0000 (UTC) Cc: michael.albinus@gmx.de, emacs-devel@gnu.org To: Noam Postavsky Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Jul 20 19:30:52 2018 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fgZEy-0004M8-59 for ged-emacs-devel@m.gmane.org; Fri, 20 Jul 2018 19:30:52 +0200 Original-Received: from localhost ([::1]:49198 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fgZH5-0001yf-5J for ged-emacs-devel@m.gmane.org; Fri, 20 Jul 2018 13:33:03 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:54306) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fgZG0-0001yO-GC for emacs-devel@gnu.org; Fri, 20 Jul 2018 13:31:57 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fgZFw-00067d-Jl for emacs-devel@gnu.org; Fri, 20 Jul 2018 13:31:56 -0400 Original-Received: from fencepost.gnu.org ([2001:4830:134:3::e]:39501) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fgZFw-00067T-Fe; Fri, 20 Jul 2018 13:31:52 -0400 Original-Received: from [176.228.60.248] (port=2383 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1fgZFv-0000ZD-V7; Fri, 20 Jul 2018 13:31:52 -0400 In-reply-to: (message from Noam Postavsky on Fri, 20 Jul 2018 12:17:46 -0400) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:227592 Archived-At: > From: Noam Postavsky > Date: Fri, 20 Jul 2018 12:17:46 -0400 > Cc: Emacs developers > > (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.