Propagate location info in progn optimization.

* eval.c (maybe_progn): rlcp info to generated progn cons.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index b278ea8c..e7996c73 100644
--- a/eval.c
+++ b/eval.c
@@ -1521,7 +1521,7 @@ static val expand_macro(val form, val expander, val menv)
 
 static val maybe_progn(val forms)
 {
-  return if3(cdr(forms), cons(progn_s, forms), car(forms));
+  return if3(cdr(forms), rlcp(cons(progn_s, forms), forms), car(forms));
 }
 
 static val self_evaluating_p(val form)