[Guile-commits] 03/04: CSE visits prompt body in values context

[Andy Wingo]

wingo pushed a commit to branch stable-2.0
in repository guile.

commit b8e3e2ff4f946f9c310392d889f66b94e839e3e2
Author: Andy Wingo <address@hidden>
Date:   Fri Jun 24 18:53:58 2016 +0200

    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 b025bcb..b677866 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*)))))))))
       (($ <prompt> 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*)))