From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: ludo@gnu.org (Ludovic =?iso-8859-1?Q?Court=E8s?=) Newsgroups: gmane.lisp.guile.devel Subject: source-location->source-properties Date: Thu, 18 Nov 2010 22:37:03 +0100 Message-ID: <8739qyz534.fsf@gnu.org> References: <1877026923.880808.1290087063603.JavaMail.root@zmbs1.inria.fr> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1290116243 12023 80.91.229.12 (18 Nov 2010 21:37:23 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 18 Nov 2010 21:37:23 +0000 (UTC) Cc: guile-devel@gnu.org To: "Andy Wingo" Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Thu Nov 18 22:37:19 2010 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PJCAQ-0004iP-TM for guile-devel@m.gmane.org; Thu, 18 Nov 2010 22:37:19 +0100 Original-Received: from localhost ([127.0.0.1]:50990 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PJCAQ-00047J-CS for guile-devel@m.gmane.org; Thu, 18 Nov 2010 16:37:18 -0500 Original-Received: from [140.186.70.92] (port=57505 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PJCAG-000469-SB for guile-devel@gnu.org; Thu, 18 Nov 2010 16:37:09 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PJCAF-0002fg-Ph for guile-devel@gnu.org; Thu, 18 Nov 2010 16:37:08 -0500 Original-Received: from mail1-relais-roc.national.inria.fr ([192.134.164.82]:26994) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PJCAF-0002fW-K3 for guile-devel@gnu.org; Thu, 18 Nov 2010 16:37:07 -0500 X-IronPort-AV: E=Sophos;i="4.59,218,1288566000"; d="scan'208";a="88528012" Original-Received: from reverse-83.fdn.fr (HELO nixey) ([80.67.176.83]) by mail1-relais-roc.national.inria.fr with ESMTP/TLS/DHE-RSA-AES128-SHA; 18 Nov 2010 22:37:06 +0100 X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 28 Brumaire an 219 de la =?iso-8859-1?Q?R=E9volution?= X-PGP-Key-ID: 0xEA52ECF4 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 83C4 F8E5 10A3 3B4C 5BEA D15D 77DD 95E2 EA52 ECF4 X-OS: x86_64-unknown-linux-gnu In-Reply-To: <1877026923.880808.1290087063603.JavaMail.root@zmbs1.inria.fr> (Andy Wingo's message of "Thu, 18 Nov 2010 14:31:03 +0100 (CET)") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:11138 Archived-At: Hi! "Andy Wingo" writes: > --- a/module/system/base/lalr.scm > +++ b/module/system/base/lalr.scm > @@ -35,6 +35,7 @@ > source-location-column > source-location-offset > source-location-length > + source-location->source-properties > > ;; `lalr-parser' is a defmacro, which produces code that ref= ers to > ;; these drivers. > @@ -43,3 +44,8 @@ > ;; The LALR parser generator was written by Dominique Boucher. It's ava= ilable > ;; from http://code.google.com/p/lalr-scm/ and released under the LGPLv3= +. > (include-from-path "system/base/lalr.upstream.scm") > + > +(define (source-location->source-properties loc) > + `((filename . ,(source-location-input loc)) > + (line . ,(source-location-line loc)) > + (column . ,(source-location-column loc)))) I was thinking that this procedure could be made internal to the ES compiler, so that the export list of (system base lalr) remains identical to that upstream. What do you think? Thanks, Ludo=E2=80=99.