From unknown Sat Jun 14 00:08:34 2025 X-Loop: help-debbugs@gnu.org Subject: bug#42415: Remove unused parallel mapper argument Resent-From: Francesco Montanari Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sat, 18 Jul 2020 14:26:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 42415 X-GNU-PR-Package: guile X-GNU-PR-Keywords: To: 42415@debbugs.gnu.org X-Debbugs-Original-To: bug-guile@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.15950823436880 (code B ref -1); Sat, 18 Jul 2020 14:26:02 +0000 Received: (at submit) by debbugs.gnu.org; 18 Jul 2020 14:25:43 +0000 Received: from localhost ([127.0.0.1]:59126 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jwnmX-0001mo-Vd for submit@debbugs.gnu.org; Sat, 18 Jul 2020 10:25:43 -0400 Received: from lists.gnu.org ([209.51.188.17]:34134) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jwnP9-0001EE-UX for submit@debbugs.gnu.org; Sat, 18 Jul 2020 10:01:32 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:45428) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jwnP9-0004r0-JD for bug-guile@gnu.org; Sat, 18 Jul 2020 10:01:31 -0400 Received: from relay2-d.mail.gandi.net ([217.70.183.194]:46151) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jwnP7-0008VB-DQ for bug-guile@gnu.org; Sat, 18 Jul 2020 10:01:31 -0400 X-Originating-IP: 92.176.218.128 Received: from [192.168.1.21] (unknown [92.176.218.128]) (Authenticated sender: francesco@fmnt.info) by relay2-d.mail.gandi.net (Postfix) with ESMTPSA id 0153F40009 for ; Sat, 18 Jul 2020 14:01:23 +0000 (UTC) From: Francesco Montanari Message-ID: Date: Sat, 18 Jul 2020 16:01:22 +0200 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.10.0 MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Language: en-US Content-Transfer-Encoding: 7bit Received-SPF: pass client-ip=217.70.183.194; envelope-from=fmnt@fmnt.info; helo=relay2-d.mail.gandi.net X-detected-operating-system: by eggs.gnu.org: First seen = 2020/07/18 10:01:24 X-ACL-Warn: Detected OS = Linux 3.11 and newer X-Spam_score_int: -25 X-Spam_score: -2.6 X-Spam_bar: -- X-Spam_report: (-2.6 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H3=-0.01, RCVD_IN_MSPIKE_WL=-0.01, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -1.6 (-) X-Mailman-Approved-At: Sat, 18 Jul 2020 10:25:38 -0400 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: -2.6 (--) From 116cb3cc3ea8fc72fa99d0405ecbe04a2d0f3d96 Mon Sep 17 00:00:00 2001 From: Francesco Montanari Date: Sat, 18 Jul 2020 15:44:38 +0200 Subject: [PATCH] Remove unused parallel mapper argument * module/ice-9/threads.scm (par-mapper, par-map, par-for-each): Remove unused `mapper` argument in `par-mapper` procedure. This change does not modify the procedures behavior. --- module/ice-9/threads.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/module/ice-9/threads.scm b/module/ice-9/threads.scm index c42bd266f..5b5ebaf4f 100644 --- a/module/ice-9/threads.scm +++ b/module/ice-9/threads.scm @@ -279,7 +279,7 @@ terminates, unless the target @var{thread} has already terminated." (lambda (v ...) b0 b1 ...))) -(define (par-mapper mapper cons) +(define (par-mapper cons) (lambda (proc . lists) (let loop ((lists lists)) (match lists @@ -290,8 +290,8 @@ terminates, unless the target @var{thread} has already terminated." (_ '()))))) -(define par-map (par-mapper map cons)) -(define par-for-each (par-mapper for-each (const *unspecified*))) +(define par-map (par-mapper cons)) +(define par-for-each (par-mapper (const *unspecified*))) (define (n-par-map n proc . arglists) (let* ((m (make-mutex)) -- 2.20.1