From b8e3e2ff4f946f9c310392d889f66b94e839e3e2 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 24 Jun 2016 18:53:58 +0200 Subject: [PATCH] CSE visits prompt body in values context * module/language/tree-il/cse.scm (cse): Visit prompt body in values context, similar to recent peval fix. --- module/language/tree-il/cse.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/tree-il/cse.scm b/module/language/tree-il/cse.scm index b025bcb08..b6778661a 100644 --- a/module/language/tree-il/cse.scm +++ b/module/language/tree-il/cse.scm @@ -569,7 +569,7 @@ (lp rest (cons head out) (concat db** db*))))))))) (($ src tag body handler) (let*-values (((tag db*) (visit tag db env 'value)) - ((body _) (visit body (concat db* db) env ctx)) + ((body _) (visit body (concat db* db) env 'values)) ((handler _) (visit handler (concat db* db) env ctx))) (return (make-prompt src tag body handler) db*)))