GNU bug report logs - #42415
Remove unused parallel mapper argument

Previous Next

Package: guile;

Reported by: Francesco Montanari <fmnt <at> fmnt.info>

Date: Sat, 18 Jul 2020 14:26:02 UTC

Severity: normal

To reply to this bug, email your comments to 42415 AT debbugs.gnu.org.

Toggle the display of automated, internal messages from the tracker.

View this report as an mbox folder, status mbox, maintainer mbox


Report forwarded to bug-guile <at> gnu.org:
bug#42415; Package guile. (Sat, 18 Jul 2020 14:26:02 GMT) Full text and rfc822 format available.

Acknowledgement sent to Francesco Montanari <fmnt <at> fmnt.info>:
New bug report received and forwarded. Copy sent to bug-guile <at> gnu.org. (Sat, 18 Jul 2020 14:26:02 GMT) Full text and rfc822 format available.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Francesco Montanari <fmnt <at> fmnt.info>
To: bug-guile <at> gnu.org
Subject: Remove unused parallel mapper argument
Date: Sat, 18 Jul 2020 16:01:22 +0200
From 116cb3cc3ea8fc72fa99d0405ecbe04a2d0f3d96 Mon Sep 17 00:00:00 2001
From: Francesco Montanari <fmnt <at> fmnt.info>
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





This bug report was last modified 3 years and 254 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.