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.

1 files changed, 6 insertions, 0 deletions

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 {