From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.ciao.gmane.io!not-for-mail From: =?UTF-8?Q?G=C3=B6ran?= Weinholt Newsgroups: gmane.lisp.guile.bugs Subject: bug#41045: transcoded-port turns input/output ports into output ports Date: Sun, 03 May 2020 11:07:59 +0200 Message-ID: <875zddcro0.fsf@teapot.weinholt.se> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="ciao.gmane.io:159.69.161.202"; logging-data="113013"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux) To: 41045@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Sun May 03 11:15:36 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 1jVAil-000TEC-G2 for guile-bugs@m.gmane-mx.org; Sun, 03 May 2020 11:15:35 +0200 Original-Received: from localhost ([::1]:58208 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jVAik-0007LA-79 for guile-bugs@m.gmane-mx.org; Sun, 03 May 2020 05:15:34 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:37476) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jVAiF-0007I2-2f for bug-guile@gnu.org; Sun, 03 May 2020 05:15:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:43094) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1jVAiE-0008Qd-PU for bug-guile@gnu.org; Sun, 03 May 2020 05:15:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jVAiE-0006Ak-Ke for bug-guile@gnu.org; Sun, 03 May 2020 05:15:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: =?UTF-8?Q?G=C3=B6ran?= Weinholt Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sun, 03 May 2020 09:15:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 41045 X-GNU-PR-Package: guile X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.158849725823652 (code B ref -1); Sun, 03 May 2020 09:15:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 3 May 2020 09:14:18 +0000 Original-Received: from localhost ([127.0.0.1]:54640 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jVAhW-00069P-1p for submit@debbugs.gnu.org; Sun, 03 May 2020 05:14:18 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:35172) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jVAhU-00069I-RR for submit@debbugs.gnu.org; Sun, 03 May 2020 05:14:17 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:37380) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jVAhU-000743-Kv for bug-guile@gnu.org; Sun, 03 May 2020 05:14:16 -0400 Original-Received: from iustitia.weinholt.se ([2a02:28f0:0:a::7dce:e5a8]:59790) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jVAhT-00089U-0o for bug-guile@gnu.org; Sun, 03 May 2020 05:14:16 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=weinholt.se ; s=iustitia2012; h=Content-Transfer-Encoding:Content-Type:MIME-Version: Message-ID:Date:Subject:To:From:Sender:Reply-To:Cc:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:In-Reply-To:References:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=WzT65NipAdRvH/WVekA3YIEXy8Alq5mjueOPJGKfvnY=; b=RAsyKlYzaw+M72I8I2wEo3Iy0b de3dgkJe11WTfCBy6j9Hpwn2bWAj8+Q8+sW4IIL3+86yL5NS0xUSdl4/nKqaeGAS+lS9t1DTeMJV1 +SKfODb6jV6CPitY37Mxb0ceF+UEVt1ZpIHwC3oR7HlU37SkX/lJGgVqiznkumqSBAaMKwPMaf9SL 5Qdr7Sna6nzbFS0s1D1xwz5POh4mYIFloiDt+/O7MphbX1fCOVxL/5jCpS27W5hRJY8CBaQbKmMoB fkcTWBuJbS/n8LY1Qz2qSexXrRQ2MR6CNYCBFn9VQhXlnTdHJ0udKscHQbACB5MDxh4HPLBHcJA6T pcXodbfg==; Original-Received: from uucp by iustitia.weinholt.se with local-bsmtp (Exim 4.89) (envelope-from ) id 1jVAhK-00076v-48; Sun, 03 May 2020 11:14:06 +0200 Original-Received: from weinholt by teapot with local (Exim 4.93) (envelope-from ) id 1jVAbP-0002gw-1B; Sun, 03 May 2020 11:07:59 +0200 Received-SPF: none client-ip=2a02:28f0:0:a::7dce:e5a8; envelope-from=goran@weinholt.se; helo=iustitia.weinholt.se X-detected-operating-system: by eggs.gnu.org: No matching host in p0f cache. That's all we know. X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 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, URIBL_BLOCKED=0.001 autolearn=_AUTOLEARN 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" Xref: news.gmane.io gmane.lisp.guile.bugs:9744 Archived-At: Hello schemers, The transcoded-port procedure from (rnrs) does not handle input/output ports properly: --8<---------------cut here---------------start------------->8--- GNU Guile 3.0.2 Copyright (C) 1995-2020 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Enter `,help' for help. scheme@(guile-user)> (import (rnrs)) scheme@(guile-user)> (define p (open-file-input/output-port "/dev/null" (fi= le-options no-fail))) scheme@(guile-user)> (define tp (transcoded-port p (native-transcoder))) scheme@(guile-user)> (values (output-port? tp) (input-port? tp)) $1 =3D #t $2 =3D #f --8<---------------cut here---------------end--------------->8--- Both return values should be #t. --=20 G=C3=B6ran Weinholt | https://weinholt.se/ Debian developer | 73 de SA6CJK