Bugfix: rlcp function was incorrect for new way of storing

line number info.

* parser.h (rlset): Declared.
(rlcp): Use rlset.

* parser.y (rlset): New function.

3 files changed, 18 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 34cdd1ab..2ff209e4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,15 @@
 2012-02-28  Kaz Kylheku  <kaz@kylheku.com>
 
+	Bugfix: rlcp function was incorrect for new way of storing
+	line number info.
+
+	* parser.h (rlset): Declared.
+	(rlcp): Use rlset.
+
+	* parser.y (rlset): New function.
+
+2012-02-28  Kaz Kylheku  <kaz@kylheku.com>
+
 	* debug.c (help, debug): New g command for tweaking log level.
 
 2012-02-28  Kaz Kylheku  <kaz@kylheku.com>
diff --git a/parser.h b/parser.h
index 9293d8c6..82ca1f0f 100644
--- a/parser.h
+++ b/parser.h
@@ -43,7 +43,8 @@ void parse_reset(val spec_file);
 val source_loc(val form);
 val source_loc_str(val form);
 val rl(val form, val lineno);
+val rlset(val form, val info);
 INLINE val rlcp(val to, val from)
 {
-  return rl(to, source_loc(from));
+  return rlset(to, source_loc(from));
 }
diff --git a/parser.y b/parser.y
index 8df15ae5..8656de57 100644
--- a/parser.y
+++ b/parser.y
@@ -1017,6 +1017,12 @@ val rl(val form, val lineno)
   return form;
 }
 
+val rlset(val form, val info)
+{
+  sethash(form_to_ln_hash, form, info);
+  return form;
+}
+
 static wchar_t char_from_name(wchar_t *name)
 {
   static struct {