From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Francesco Montanari Newsgroups: gmane.lisp.guile.bugs Subject: bug#42415: Remove unused parallel mapper argument Date: Sat, 18 Jul 2020 16:01:22 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="32452"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.10.0 To: 42415@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Sat Jul 18 16:26:08 2020 Return-path: Envelope-to: guile-bugs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1jwnmy-0008Lv-B1 for guile-bugs@m.gmane-mx.org; Sat, 18 Jul 2020 16:26:08 +0200 Original-Received: from localhost ([::1]:58606 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jwnmx-0002Xg-CU for guile-bugs@m.gmane-mx.org; Sat, 18 Jul 2020 10:26:07 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:53154) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jwnms-0002WZ-SX for bug-guile@gnu.org; Sat, 18 Jul 2020 10:26:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:47582) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1jwnms-0006zg-Hv for bug-guile@gnu.org; Sat, 18 Jul 2020 10:26:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jwnms-0001ng-Ed for bug-guile@gnu.org; Sat, 18 Jul 2020 10:26:02 -0400 X-Loop: help-debbugs@gnu.org 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-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.15950823436880 (code B ref -1); Sat, 18 Jul 2020 14:26:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 18 Jul 2020 14:25:43 +0000 Original-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 Original-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 Original-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 Original-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 Original-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) Content-Language: en-US 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-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 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.io gmane.lisp.guile.bugs:9845 Archived-At: 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