From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: =?UTF-8?Q?G=C3=B6ran?= Weinholt Newsgroups: gmane.lisp.guile.bugs Subject: bug#38611: Guile 2.9.7 regression: "duplicate" record field names Date: Sat, 14 Dec 2019 14:31:10 +0100 Message-ID: <874ky3xcdd.fsf@teapot.weinholt.se> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="237361"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux) To: 38611@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sun Dec 15 00:24:51 2019 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1igGmJ-000zel-QN for guile-bugs@m.gmane.org; Sun, 15 Dec 2019 00:24:51 +0100 Original-Received: from localhost ([::1]:34516 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1igGmI-0002Na-HE for guile-bugs@m.gmane.org; Sat, 14 Dec 2019 18:24:50 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:41665) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1igGkf-0000Tb-EQ for bug-guile@gnu.org; Sat, 14 Dec 2019 18:23:12 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1igGkd-0002c9-KS for bug-guile@gnu.org; Sat, 14 Dec 2019 18:23:09 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]:58118) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1igGkc-0002Ot-MC for bug-guile@gnu.org; Sat, 14 Dec 2019 18:23:07 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1igEPO-0002G4-6F for bug-guile@gnu.org; Sat, 14 Dec 2019 15:53:02 -0500 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: Sat, 14 Dec 2019 20:53:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 38611 X-GNU-PR-Package: guile X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.15763567398621 (code B ref -1); Sat, 14 Dec 2019 20:53:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 14 Dec 2019 20:52:19 +0000 Original-Received: from localhost ([127.0.0.1]:35803 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1igEOh-0002Ez-B9 for submit@debbugs.gnu.org; Sat, 14 Dec 2019 15:52:19 -0500 Original-Received: from lists.gnu.org ([209.51.188.17]:36666) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1igEOd-0002Eq-QX for submit@debbugs.gnu.org; Sat, 14 Dec 2019 15:52:18 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:46017) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1igEOc-0002UU-Do for bug-guile@gnu.org; Sat, 14 Dec 2019 15:52:15 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1igEOa-0003Tx-8L for bug-guile@gnu.org; Sat, 14 Dec 2019 15:52:14 -0500 Original-Received: from iustitia.weinholt.se ([2a02:28f0:0:a::7dce:e5a8]:33796) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1igEOY-0002sh-4J for bug-guile@gnu.org; Sat, 14 Dec 2019 15:52:12 -0500 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=oxqlsSmlQ6kCkbCMGUZMZ8lNkgeKK8UtRiRAyNJX/DY=; b=Dgs82Cgqn7B2bcqKzDkJ/1YMYq HmEVpDDSzHqT5/GKdR/WsG3+XRS+RkXvgr6yM22T6OWFoW9gvh0kVibEjmpPv1NcLFTwG01SbsUUW 4w0Xw9dUA5nSKxRDQBrjoZStV23+SXDqEvDIGbmcY7vg16ugyWwMie6DoWIaIjiFKSZVktYwq2bPx OkNbWWw4/KdGRxWypID9XpQjC2MHeT+9f/vLXAhlKGdkQaqjsZw90FVOIK0dCJhIjE3BBsP5I2LMu P86vBDjzbgZT55M7U76TGauVzXfvl5IjhNOpvXwNqeuCwOh0V2DJWDvIezb1CQsFXN/XkU7GNHXt9 mm0/oAwA==; Original-Received: from uucp by iustitia.weinholt.se with local-bsmtp (Exim 4.89) (envelope-from ) id 1ig7Za-0006Ch-Gu; Sat, 14 Dec 2019 14:35:06 +0100 Original-Received: from weinholt by teapot with local (Exim 4.93-RC5) (envelope-from ) id 1ig7Vm-0002II-Vn; Sat, 14 Dec 2019 14:31:10 +0100 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. 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.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.org gmane.lisp.guile.bugs:9489 Archived-At: Hello schemers, The following program works in Guile 2.2.6 (and other R6RS implementations), but raises an exception in Guile 2.9.7. A field called "name" exists in record type a and record type b, but there is no actual naming conflict as I understand it. --8<---------------cut here---------------start------------->8--- (import (rnrs)) (define-record-type a (fields name)) (define-record-type b (parent a) (fields name)) (let ((x (make-b 'a 'b))) (write (list (a-name x) (b-name x))) (newline)) --8<---------------cut here---------------end--------------->8--- It should print (a b). The backtrace: --8<---------------cut here---------------start------------->8--- Backtrace: In ice-9/boot-9.scm: 1722:10 8 (with-exception-handler _ _ #:unwind? _ # _) In unknown file: 7 (apply-smob/0 #) In ice-9/boot-9.scm: 718:2 6 (call-with-prompt _ _ #) In ice-9/eval.scm: 619:8 5 (_ #(#(#))) In ice-9/boot-9.scm: 2792:4 4 (save-module-excursion _) 4336:12 3 (_) In /tmp/foo.sps: 6:0 2 (_) In ice-9/boot-9.scm: 1090:10 1 (make-record-type b ((immutable name)) _ #:parent _ # _ ?) 1073:12 0 (append-fields _ _) ice-9/boot-9.scm:1073:12: In procedure append-fields: duplicate field name --8<---------------cut here---------------end--------------->8--- Regards, --=20 G=C3=B6ran Weinholt | https://weinholt.se/ Debian developer | 73 de SA6CJK