From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Hannes =?UTF-8?Q?M=C3=BCller?= via "Bug reports for GUILE, GNU's Ubiquitous Extension Language" Newsgroups: gmane.lisp.guile.bugs Subject: bug#75084: bug report with patch 0003-Fix-make-custom-port-in-case-encoding-is-f.patch Date: Wed, 25 Dec 2024 12:50:13 +0000 Message-ID: Reply-To: Hannes =?UTF-8?Q?M=C3=BCller?= Mime-Version: 1.0 Content-Type: multipart/mixed; boundary=trekuen-7595b832-6b90-48d2-96cb-d16f6b92b5e0 Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="29635"; mail-complaints-to="usenet@ciao.gmane.io" To: 75084@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Wed Dec 25 13:51:23 2024 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 1tQQrD-0007YL-8G for guile-bugs@m.gmane-mx.org; Wed, 25 Dec 2024 13:51:23 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1tQQqv-0006pD-9L; Wed, 25 Dec 2024 07:51:05 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tQQqt-0006oj-3p for bug-guile@gnu.org; Wed, 25 Dec 2024 07:51:03 -0500 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1tQQqs-0004jq-Rv for bug-guile@gnu.org; Wed, 25 Dec 2024 07:51:02 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=Date:From:MIME-Version:To:Subject; bh=Drf/iPxc8tdGG3N5FHIGc+FxoHkQrpOXsqrcZEk/9D0=; b=pzUddpRk+n+ZICNLIC+G1ncGrm+kuy+HjBsOFf/1/LNfBAz8uET5s5zAZb+uZEzBxa8+devwAyNAvjxqRKFUPGq+heCKOvd/gOd4Qrf3d3cbXcLYgoHPHcPqqPgipOt8EjHUEy8npAzJuP5jNChA7NMR0d/DBMXa3pl5KMboS2EQU3xC0dVc1d457oYOWv/5Jr4Pxvu8jvYgNSOhC29L5JPbepLgDFlxp7JxqQmVgs2MdhQyXfl6gmc22LvsVXNX9+ws6B1ErjgXewk8n/9AfNfzqLjtV8Dhmd07WdSJz1yqFjoRAEsW+Yfp6n93YIQBLcbYn4faFlUEnU1IQAeI0w==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1tQQqs-0002dH-FV for bug-guile@gnu.org; Wed, 25 Dec 2024 07:51:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Hannes =?UTF-8?Q?M=C3=BCller?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 25 Dec 2024 12:51:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 75084 X-GNU-PR-Package: guile X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.173513102310051 (code B ref -1); Wed, 25 Dec 2024 12:51:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 25 Dec 2024 12:50:23 +0000 Original-Received: from localhost ([127.0.0.1]:36479 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tQQqF-0002c3-29 for submit@debbugs.gnu.org; Wed, 25 Dec 2024 07:50:23 -0500 Original-Received: from lists.gnu.org ([209.51.188.17]:51948) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1tQQqC-0002bv-I4 for submit@debbugs.gnu.org; Wed, 25 Dec 2024 07:50:21 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tQQqA-0006kt-U2 for bug-guile@gnu.org; Wed, 25 Dec 2024 07:50:18 -0500 Original-Received: from mout.gmx.net ([212.227.15.18]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1tQQq8-0004eo-Mt for bug-guile@gnu.org; Wed, 25 Dec 2024 07:50:18 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmx.de; s=s31663417; t=1735131013; x=1735735813; i=h.c.f.mueller@gmx.de; bh=Drf/iPxc8tdGG3N5FHIGc+FxoHkQrpOXsqrcZEk/9D0=; h=X-UI-Sender-Class:MIME-Version:Message-ID:From:To:Subject: Content-Type:Date:cc:content-transfer-encoding:content-type:date: from:message-id:mime-version:reply-to:subject:to; b=njJ5/sgv58GdG9CgAyoOp1ndGcSoIEu5DrMMc55pG5KQiqYoX77Y15dAzLZetE8U +615XWBNA0F2sEh3mXD9psItHA8HKyuj9YDsdZ1XS7O4AKB6BcjMZwD/Vjhnh1hNm OX0lF0YOxGSexJCD+jUzKjjvQ7C83utU+hVeAcSTh3jM9bn0/zUuGn14L8bA3jTOB WLpK6pgAO11VISypz/k3PT72xRdmknCHJytPaZqTsiLjKaW86AUFfOC1AMzggA+hW efpKiEoedTcL6iqrmrmAJFuxj2OAJIXODoONizREMQf9T+135GLUy9KZFMf6TJUMj NAy3Eff+rkWKoyws+A== X-UI-Sender-Class: 724b4f7f-cbec-4199-ad4e-598c01a50d3a Original-Received: from [79.194.58.247] ([79.194.58.247]) by trinity-msg-rest-gmx-gmx-live-bbc95d94c-jjgc7 (via HTTP); Wed, 25 Dec 2024 12:50:13 +0000 X-UI-CLIENT-META-MAIL-DROP: W10= X-Provags-ID: V03:K1:iF4yDcubdk6LGSJ9fAcB1cxV0fMr/JXUkLLapD28ryS7ByqdJmOi7j+ST8yxUug5K33Lp CSuNOQZ31x32Yu+mNu2iXxpfTsyAG1Cfej2nk6rrS16TJ1pQXBuGHCBKVO6mRkUiqUCZS2H52mkE iWgpP3Y5wto+bQlP0qpDd2I9uciBcxYW1wvAICv2uukCpx2sBggYeILq6lrVtuSYRA/E1iH0R6lQ dkX83DZC0eU7yYSgRysKNm6wGhkIu9iUU4my7F0YIHXzldrWAwC55hT/mAqWSC3+Vvc1aNr/4scy Q/nTF0EcRyy2gdgR1htIQ2KXxMePHGFT5jZcWcdihntRUY8+oCHc5p931i1CiHB8Yo= UI-OutboundReport: notjunk:1;M01:P0:vvxcPwt2QVU=;yziM7XjOOgWlYnmnEOmtqLB0E3D c4J3lNYqRXRxkiXGRNuhRMmyRg7pBBkp56VqHI59BNQWKrwd9+z+dosu4ITiYWHe2TE9tQGDk JhxfrPOjqE8zlJV1y+Jib2OTZRzJQlUar0V5gbDesVkpIC+s09Psha6jGfLHhvGPgSFcSAwca ZCmmeHaYulWXo7yEPpCVA2/tTM/IKZfrbGd4AcUuZPaBaeY3QrW8ri3ZPDuxGYUwx9AuDjPXs FRhvXZvFJyDi3B45xw5apUTsrUtOp7U6kO+EIuU5mtggbHOjgh87cszL3whTqMSXcHQ8ON5TO Jij/r7nH0Iy2lV9zAojuh0S7Rq4K64P6g5lblJndEv4jvYKTNAcq3bf5CWbMz9ECZmTFkcCOo vBv1YjCyNg9KdxGXkrOY4gTTyei6xT1IYWiB8vkVg64xaTesBVi1Gr/Jv2V7g/sR7RTcw9FzT KBnCjf2VI91Nh9fItUYs0GwGJpLoJwMJ1WOtNS0N/J7vLELrz+CayrYvVa+BSDFMQJFRytx0b WtfhhzyWyy3+b7wZlXYr2+S6Zm4b/2Z74GlnA7GZla3KaxgIh5FU3X2nS7HX98tJ63LTmJLRy fQQH70zuJX2UXRO6hYYI3/mekSnbP29fENggPp7XiN73DdPXEn7jfE8xhlScQWW69V1dUgflz nlEvDj7b4zszGsiJmlUB2/FKLeIwzLEZaSetAKC3Qgdjc6pQ/3IUYGj6t3bntjWTo32IML+nE SBou68u5j2Pn1y/ztksfHBXYYe0M9OU4jheYvCnVD1ZOm/iXjv8vjxH14LJp0sEdOSgsOnhF Received-SPF: pass client-ip=212.227.15.18; envelope-from=h.c.f.mueller@gmx.de; helo=mout.gmx.net X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, RCVD_IN_VALIDITY_CERTIFIED_BLOCKED=0.001, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action 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-bounces+guile-bugs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.lisp.guile.bugs:11144 Archived-At: --trekuen-7595b832-6b90-48d2-96cb-d16f6b92b5e0 Content-Type: text/html; charset=UTF-8
Dear All,
Please review the attached patch.
 
Thanks,
Hannes
--trekuen-7595b832-6b90-48d2-96cb-d16f6b92b5e0 Content-Type: text/x-patch Content-Disposition: attachment; filename=0003-Fix-make-custom-port-in-case-encoding-is-f.patch X-UI-Content-Hash: 2034d527f647b7128267714c095ac0b38613b1b367e9959f5c6e8ff323a8a925 Content-Transfer-Encoding: quoted-printable =46rom 72b85f8e6a369e6aef4c6bd6bb233c0cacb80b03 Mon Sep 17 00:00:00 2001 From: =3D?UTF-8?q?Hannes=3D20M=3DC3=3DBCller?=3D <> Date: Sat, 21 Dec 2024 16:55:13 +0100 Subject: [PATCH] Fix make-custom-port in case encoding is #f * module/ice-9/custom-ports.scm (make-custom-port): Code fails if (fluid-ref %default-port-encoding) returns #f. In fact this was the case why readline support on MSYS2 failed for guile 3.0.10, ref. https://github.com/msys2/MSYS2-packages/issues/5079 But later used canonicalize-encoding is prepared to handle #f for encoding. So allow encoding to also handle this case. =2D-- module/ice-9/custom-ports.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/module/ice-9/custom-ports.scm b/module/ice-9/custom-ports.scm index 6010fd94f..bc9de8f64 100644 =2D-- a/module/ice-9/custom-ports.scm +++ b/module/ice-9/custom-ports.scm @@ -127,7 +127,9 @@ (id "custom-port") (print (make-default-print #:id id)) (truncate default-truncate) - (encoding (string->symbol (fluid-ref %default-port-encoding))) + (encoding (if (string? (fluid-ref %default-port-encoding)) + (string->symbol (fluid-ref %default-port-encoding= )) + (fluid-ref %default-port-encoding))) (conversion-strategy (fluid-ref %default-port-conversion-strate= gy)) (close-on-gc? #f)) "Create a custom port whose behavior is determined by the methods passe= d =2D- 2.45.2 --trekuen-7595b832-6b90-48d2-96cb-d16f6b92b5e0--