Bugfixes: not propagating source loc info in quasiliterals.

* eval.c (expand_quasi): Add some rlcp's here.

* parser.y (o_var, quasi_items, o_elems_transform): Likewise.

1 files changed, 2 insertions, 3 deletions

diff --git a/eval.c b/eval.c
index c2cba4a5..f272db01 100644
--- a/eval.c
+++ b/eval.c
@@ -1736,13 +1736,12 @@ static val expand_quasi(val quasi_forms)
         val expr_ex = expand(rest(form));
 
         if (expr_ex != rest(form))
-          form_ex = cons(sym, expr_ex);
-
+          form_ex = rlcp(cons(sym, expr_ex), form);
       } 
     }
 
     if (form != form_ex)
-      return cons(form_ex, expand_quasi(rest(quasi_forms)));
+      return rlcp(cons(form_ex, expand_quasi(rest(quasi_forms))), quasi_forms);
     return quasi_forms;
   }
 }