mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

CSE visits prompt body in values context

Browse source 
* module/language/tree-il/cse.scm (cse): Visit prompt body in values
  context, similar to recent peval fix.
This commit is contained in:
Andy Wingo 2016-06-24 18:53:58 +02:00
parent c9710a9586
commit b8e3e2ff4f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/cse.scm
View file

@ -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*)))