From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.ciao.gmane.io!not-for-mail From: Mark H Weaver Newsgroups: gmane.lisp.guile.bugs Subject: bug#40584: R7RS string-for-each does not work two or more strings on its argument Date: Fri, 17 Apr 2020 17:07:14 -0400 Message-ID: <87blnpu8gy.fsf@netris.org> References: Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="ciao.gmane.io:159.69.161.202"; logging-data="106648"; mail-complaints-to="usenet@ciao.gmane.io" Cc: 40584@debbugs.gnu.org To: OKUMURA Yuki Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Fri Apr 17 23:10:12 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 1jPYFX-000Reb-FL for guile-bugs@m.gmane-mx.org; Fri, 17 Apr 2020 23:10:11 +0200 Original-Received: from localhost ([::1]:51982 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jPYFW-00078k-5y for guile-bugs@m.gmane-mx.org; Fri, 17 Apr 2020 17:10:10 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:34617) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jPYFP-00077w-36 for bug-guile@gnu.org; Fri, 17 Apr 2020 17:10:04 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jPYFO-00042I-1q for bug-guile@gnu.org; Fri, 17 Apr 2020 17:10:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:58477) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jPYFN-000420-Uz for bug-guile@gnu.org; Fri, 17 Apr 2020 17:10:01 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jPYFN-0000R3-Oj for bug-guile@gnu.org; Fri, 17 Apr 2020 17:10:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Mark H Weaver Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Fri, 17 Apr 2020 21:10:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 40584 X-GNU-PR-Package: guile Original-Received: via spool by 40584-submit@debbugs.gnu.org id=B40584.15871577461596 (code B ref 40584); Fri, 17 Apr 2020 21:10:01 +0000 Original-Received: (at 40584) by debbugs.gnu.org; 17 Apr 2020 21:09:06 +0000 Original-Received: from localhost ([127.0.0.1]:41787 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jPYET-0000Pg-UY for submit@debbugs.gnu.org; Fri, 17 Apr 2020 17:09:06 -0400 Original-Received: from world.peace.net ([64.112.178.59]:49620) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jPYES-0000PB-D6 for 40584@debbugs.gnu.org; Fri, 17 Apr 2020 17:09:04 -0400 Original-Received: from mhw by world.peace.net with esmtpsa (TLS1.3:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1jPYEM-00040U-FH; Fri, 17 Apr 2020 17:08:58 -0400 In-Reply-To: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 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:9718 Archived-At: OKUMURA Yuki wrote: > Actually it's my own bug but let me report here: (scheme base) lacks > implementation for string-for-each thus following code does not work; > > (import (scheme base)) > > (string-for-each > (lambda (e f) 'ok) > "01234" > "slas") > > Please note that we already have incompatible string-for-each for > SRFI-13 and R6RS. > (It seems current (scheme base) uses SRFI-13 one) > R7RS for-each (and map) procedures allow different length of > collection as arguments. > > Checked on 2b4e45ca1b89a942200b7b9f46060dddc44d2876 For the record, the version of R7RS 'string-for-each' that I implemented for Guile many years ago, in the 'r7rs-wip' branch of Guile's git repository (not to be confused with 'wip-r7rs'), does not have this bug: https://git.savannah.gnu.org/cgit/guile.git/tree/module/scheme/base.scm?h=r7rs-wip&id=2d76447bda2f3d61c94d80b3b78732648a0a511d#n221 I'm not sure why Andy chose not to use my work. Mark