From f8c5f7d4950a6fb660c533625ef5004f998432b1 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 17 Dec 2015 06:09:37 -0800
Subject: Bugfix: dot syntax doesn't record source loc info.

* parser.y (n_expr): Fall back on getting line number info
from parser->lineno, if it didn't come from the operands.
---
 parser.y | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/parser.y b/parser.y
index e4bb7a4c..b22a7280 100644
--- a/parser.y
+++ b/parser.y
@@ -889,10 +889,12 @@ n_expr : SYMTOK                 { $$ = symhlpr($1, t); }
        | n_expr '.' n_expr      { uses_or2;
                                   if (consp($3) && car($3) == qref_s) {
                                     rplacd($3, rlcp(cons($1, cdr($3)), $1));
+                                    rl($$, num(parser->lineno));
                                     $$ = $3;
                                   } else {
-                                    $$ = rlcp(list(qref_s, $1, $3, nao),
-                                              or2($1, $3));
+                                    $$ = rl(rlcp(list(qref_s, $1, $3, nao),
+                                                 or2($1, $3)),
+                                                 num(parser->lineno));
                                   } }
        ;
 
-- 
cgit v1.2.3