From unknown Fri Aug 15 20:27:23 2025 X-Loop: help-debbugs@gnu.org Subject: bug#48096: [3.0.6] =?UTF-8?Q?=E2=80=98syntax-error=E2=80=99?= exceptions include vectors instead of source location properties Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: wingo@pobox.com, bug-guile@gnu.org Resent-Date: Thu, 29 Apr 2021 09:42:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 48096 X-GNU-PR-Package: guile X-GNU-PR-Keywords: To: 48096@debbugs.gnu.org Cc: Andy Wingo X-Debbugs-Original-To: bug-guile@gnu.org X-Debbugs-Original-Xcc: Andy Wingo Received: via spool by submit@debbugs.gnu.org id=B.161968931926611 (code B ref -1); Thu, 29 Apr 2021 09:42:01 +0000 Received: (at submit) by debbugs.gnu.org; 29 Apr 2021 09:41:59 +0000 Received: from localhost ([127.0.0.1]:54851 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lc3BG-0006v9-Pp for submit@debbugs.gnu.org; Thu, 29 Apr 2021 05:41:59 -0400 Received: from lists.gnu.org ([209.51.188.17]:51920) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lc3BE-0006uz-9Q for submit@debbugs.gnu.org; Thu, 29 Apr 2021 05:41:58 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:35616) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lc3BA-0005p8-BT for bug-guile@gnu.org; Thu, 29 Apr 2021 05:41:56 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:39096) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lc3BA-0000mS-3t for bug-guile@gnu.org; Thu, 29 Apr 2021 05:41:52 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=32860 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1lc3B6-0004Nx-Lb for bug-guile@gnu.org; Thu, 29 Apr 2021 05:41:50 -0400 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 10 =?UTF-8?Q?Flor=C3=A9al?= an 229 de la =?UTF-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-pc-linux-gnu Date: Thu, 29 Apr 2021 11:41:46 +0200 Message-ID: <87fsz9mnqd.fsf@inria.fr> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hi! In 3.0.6, a slight incompatibility crept in: =E2=80=98syntax-error=E2=80=99= exceptions include vectors like #("example.scm" 1 2) instead of good=E2=80=99ol source property alists. Here is a test case that reproduces the problem: --=-=-= Content-Type: text/x-patch Content-Disposition: inline diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index 10bc7b080..c60a453aa 100644 --- a/test-suite/tests/syntax.test +++ b/test-suite/tests/syntax.test @@ -1,7 +1,7 @@ ;;;; syntax.test --- test suite for Guile's syntactic forms -*- scheme -*- ;;;; ;;;; Copyright (C) 2001, 2003, 2004, 2005, 2006, 2009, 2010, -;;;; 2011, 2012, 2013, 2014 Free Software Foundation, Inc. +;;;; 2011, 2012, 2013, 2014, 2021 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -112,6 +112,18 @@ (with-test-prefix "Bad argument list" + (pass-if-equal "syntax-error location" + '((line . 1) (column . 2) (filename . "example.scm")) + (catch 'syntax-error + (lambda () + (eval (call-with-input-string "\n (let foo bar)" + (lambda (port) + (set-port-filename! port "example.scm") + (read port))) + (interaction-environment))) + (lambda (key proc message properties form subform . rest) + properties))) + (pass-if-syntax-error "improper argument list of length 1" exception:generic-syncase-error (eval '(let ((foo (lambda (x y) #t))) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: base64 DQpMdWRv4oCZLg0K --=-=-=-- From unknown Fri Aug 15 20:27:23 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Ludovic =?UTF-8?Q?Court=C3=A8s?= Subject: bug#48096: closed (Re: bug#48096: [3.0.6] =?UTF-8?Q?=E2=80=98syntax-error=E2=80=99?= exceptions include vectors instead of source location properties) Message-ID: References: <877dkklv2s.fsf@pobox.com> <87fsz9mnqd.fsf@inria.fr> X-Gnu-PR-Message: they-closed 48096 X-Gnu-PR-Package: guile Reply-To: 48096@debbugs.gnu.org Date: Thu, 29 Apr 2021 20:02:01 +0000 Content-Type: multipart/mixed; boundary="----------=_1619726521-852-1" This is a multi-part message in MIME format... ------------=_1619726521-852-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #48096: [3.0.6] =E2=80=98syntax-error=E2=80=99 exceptions include vectors i= nstead of source location properties which was filed against the guile package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 48096@debbugs.gnu.org. --=20 48096: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D48096 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1619726521-852-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 48096-done) by debbugs.gnu.org; 29 Apr 2021 20:01:04 +0000 Received: from localhost ([127.0.0.1]:56845 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lcCqO-0000Cc-A9 for submit@debbugs.gnu.org; Thu, 29 Apr 2021 16:01:04 -0400 Received: from fanzine.igalia.com ([178.60.130.6]:47659) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lcCqK-0000Bz-Vq for 48096-done@debbugs.gnu.org; Thu, 29 Apr 2021 16:01:03 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=igalia.com; s=20170329; h=Content-Transfer-Encoding:Content-Type:MIME-Version:Message-ID:In-Reply-To:Date:References:Subject:Cc:To:From; bh=wySJlNTy+eNOtqyng+c2KlhS0ktFRNG/ZldFHu/1Kwg=; b=mqSt2Q+wW//0I+1UdLkLxo8okGmU6F7TWmXHEZumEMKLwEkw2GgnAuz2JNVcTzv7eKxO5Wd0YoLII2PHyVrYcsc43aS246osRDxYICBon/ljZxbRzmb7CCy8aLqRV1N1ZBqhKuCDeB9US9jgMzd79ZiBNk3ubJML6G56Hs15S1ScphmFbsBI0vbBkNK39SziG359m9Ic6ELgV9GXqYOTMXNOId/LAvaHl0igebYZLzWIp5aIiYT702gycliLqtawPyr6on/I5XvQ/nfOXuSMErX50UF4ud9MbBHZdpmOEnyS9UuDC9P9FvrlyACM1qJkobNlhpM6//HlZBnKJ3Barw==; Received: from 82-65-63-215.subs.proxad.net ([82.65.63.215] helo=sparrow) by fanzine.igalia.com with esmtpsa (Cipher TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim) id 1lcCqE-0006CB-Hc; Thu, 29 Apr 2021 22:00:54 +0200 From: Andy Wingo To: Ludovic =?utf-8?Q?Court=C3=A8s?= Subject: Re: bug#48096: [3.0.6] =?utf-8?Q?=E2=80=98syntax-error=E2=80=99?= exceptions include vectors instead of source location properties References: <87fsz9mnqd.fsf@inria.fr> Date: Thu, 29 Apr 2021 22:00:43 +0200 In-Reply-To: <87fsz9mnqd.fsf@inria.fr> ("Ludovic =?utf-8?Q?Court=C3=A8s=22?= =?utf-8?Q?'s?= message of "Thu, 29 Apr 2021 11:41:46 +0200") Message-ID: <877dkklv2s.fsf@pobox.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: 0.7 (/) X-Debbugs-Envelope-To: 48096-done Cc: 48096-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.3 (/) Done! On Thu 29 Apr 2021 11:41, Ludovic Court=C3=A8s writes: > Hi! > > In 3.0.6, a slight incompatibility crept in: =E2=80=98syntax-error=E2=80= =99 exceptions > include vectors like #("example.scm" 1 2) instead of good=E2=80=99ol sour= ce > property alists. > > Here is a test case that reproduces the problem: > > diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test > index 10bc7b080..c60a453aa 100644 > --- a/test-suite/tests/syntax.test > +++ b/test-suite/tests/syntax.test > @@ -1,7 +1,7 @@ > ;;;; syntax.test --- test suite for Guile's syntactic forms -*- schem= e -*- > ;;;; > ;;;; Copyright (C) 2001, 2003, 2004, 2005, 2006, 2009, 2010, > -;;;; 2011, 2012, 2013, 2014 Free Software Foundation, Inc. > +;;;; 2011, 2012, 2013, 2014, 2021 Free Software Foundation, Inc. > ;;;; > ;;;; This library is free software; you can redistribute it and/or > ;;;; modify it under the terms of the GNU Lesser General Public > @@ -112,6 +112,18 @@ >=20=20 > (with-test-prefix "Bad argument list" >=20=20 > + (pass-if-equal "syntax-error location" > + '((line . 1) (column . 2) (filename . "example.scm")) > + (catch 'syntax-error > + (lambda () > + (eval (call-with-input-string "\n (let foo bar)" > + (lambda (port) > + (set-port-filename! port "example.scm") > + (read port))) > + (interaction-environment))) > + (lambda (key proc message properties form subform . rest) > + properties))) > + > (pass-if-syntax-error "improper argument list of length 1" > exception:generic-syncase-error > (eval '(let ((foo (lambda (x y) #t))) > > > Ludo=E2=80=99. ------------=_1619726521-852-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 29 Apr 2021 09:41:59 +0000 Received: from localhost ([127.0.0.1]:54851 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lc3BG-0006v9-Pp for submit@debbugs.gnu.org; Thu, 29 Apr 2021 05:41:59 -0400 Received: from lists.gnu.org ([209.51.188.17]:51920) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lc3BE-0006uz-9Q for submit@debbugs.gnu.org; Thu, 29 Apr 2021 05:41:58 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:35616) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lc3BA-0005p8-BT for bug-guile@gnu.org; Thu, 29 Apr 2021 05:41:56 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:39096) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lc3BA-0000mS-3t for bug-guile@gnu.org; Thu, 29 Apr 2021 05:41:52 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=32860 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1lc3B6-0004Nx-Lb for bug-guile@gnu.org; Thu, 29 Apr 2021 05:41:50 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: bug-guile@gnu.org Subject: [3.0.6] =?utf-8?Q?=E2=80=98syntax-error=E2=80=99?= exceptions include vectors instead of source location properties X-Debbugs-Cc: Andy Wingo X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 10 =?utf-8?Q?Flor=C3=A9al?= an 229 de la =?utf-8?Q?R?= =?utf-8?Q?=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-pc-linux-gnu Date: Thu, 29 Apr 2021 11:41:46 +0200 Message-ID: <87fsz9mnqd.fsf@inria.fr> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hi! In 3.0.6, a slight incompatibility crept in: =E2=80=98syntax-error=E2=80=99= exceptions include vectors like #("example.scm" 1 2) instead of good=E2=80=99ol source property alists. Here is a test case that reproduces the problem: --=-=-= Content-Type: text/x-patch Content-Disposition: inline diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index 10bc7b080..c60a453aa 100644 --- a/test-suite/tests/syntax.test +++ b/test-suite/tests/syntax.test @@ -1,7 +1,7 @@ ;;;; syntax.test --- test suite for Guile's syntactic forms -*- scheme -*- ;;;; ;;;; Copyright (C) 2001, 2003, 2004, 2005, 2006, 2009, 2010, -;;;; 2011, 2012, 2013, 2014 Free Software Foundation, Inc. +;;;; 2011, 2012, 2013, 2014, 2021 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -112,6 +112,18 @@ (with-test-prefix "Bad argument list" + (pass-if-equal "syntax-error location" + '((line . 1) (column . 2) (filename . "example.scm")) + (catch 'syntax-error + (lambda () + (eval (call-with-input-string "\n (let foo bar)" + (lambda (port) + (set-port-filename! port "example.scm") + (read port))) + (interaction-environment))) + (lambda (key proc message properties form subform . rest) + properties))) + (pass-if-syntax-error "improper argument list of length 1" exception:generic-syncase-error (eval '(let ((foo (lambda (x y) #t))) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: base64 DQpMdWRv4oCZLg0K --=-=-=-- ------------=_1619726521-852-1--