From debbugs-submit-bounces@debbugs.gnu.org Mon Sep 25 10:03:58 2017 Received: (at 27476) by debbugs.gnu.org; 25 Sep 2017 14:03:58 +0000 Received: from localhost ([127.0.0.1]:58507 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dwTzJ-0008Ou-Q8 for submit@debbugs.gnu.org; Mon, 25 Sep 2017 10:03:57 -0400 Received: from sender-of-o51.zoho.com ([135.84.80.216]:21030) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dwTzI-0008Om-N7 for 27476@debbugs.gnu.org; Mon, 25 Sep 2017 10:03:57 -0400 Received: from localhost (141.80.193.136 [141.80.193.136]) by mx.zohomail.com with SMTPS id 1506348159380560.9028820360278; Mon, 25 Sep 2017 07:02:39 -0700 (PDT) References: <87h8vvp1q7.fsf@elephly.net> <87377esu1a.fsf@gnu.org> <87k20nz18u.fsf@igalia.com> <87a81jj5gg.fsf@gnu.org> User-agent: mu4e 0.9.18; emacs 25.3.1 From: Ricardo Wurmus To: Ludovic =?utf-8?Q?Court=C3=A8s?= Subject: Re: guix pull fails on powerful server In-reply-to: <87a81jj5gg.fsf@gnu.org> X-URL: https://elephly.net X-PGP-Key: https://elephly.net/rekado.pubkey X-PGP-Fingerprint: BCA6 89B6 3655 3801 C3C6 2150 197A 5888 235F ACAC Date: Mon, 25 Sep 2017 16:02:36 +0200 Message-ID: <87bmlyzxj7.fsf@elephly.net> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-ZohoMailClient: External X-Spam-Score: 1.0 (+) X-Debbugs-Envelope-To: 27476 Cc: Andy Wingo , help-guix@gnu.org, 27476@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 1.0 (+) Ludovic Courtès writes: > With this program: > > --8<---------------cut here---------------start------------->8--- > (use-modules (ice-9 threads) > (srfi srfi-1)) > > (define-syntax-parameter foo > (identifier-syntax +)) > > (define threads > (unfold (lambda (x) (> x 100)) > (lambda (x) > (call-with-new-thread > (lambda () > (while #t > (macroexpand > '(syntax-parameterize ((foo (identifier-syntax -))) > (foo y z))))))) > 1+ > 0)) > > (for-each join-thread threads) > --8<---------------cut here---------------end--------------->8--- I have tried this programme on my 16 core 32G workstation, and on the 192 core 1.5T server, but could not get it to segfault. -- Ricardo GPG: BCA6 89B6 3655 3801 C3C6 2150 197A 5888 235F ACAC https://elephly.net