From a67a10b463c0c43d851ec2bb72311130be306128 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 28 Nov 2015 18:20:42 -0800 Subject: Propagate location info in progn optimization. * eval.c (maybe_progn): rlcp info to generated progn cons. --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- cgit v1.2.3