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

push a prompt handler value even in the inline-handler case

Browse source 
* module/language/tree-il/compile-glil.scm (flatten): Push a handler
  value even in the inline-handler case, to make prompt's interface more
  uniform, and also to correspond to the existing VM implementation.
This commit is contained in:
Andy Wingo 2010-02-05 11:30:53 +01:00
parent adaf86ec49
commit 217167c6b2
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/tree-il/compile-glil.scm
View file

@ -981,8 +981,8 @@
(escape-only? (hashq-ref allocation x)))
;; First, set up the prompt.
(comp-push tag)
(if (not inline?)
;; handler is not rendered inline, push it on the stack
(if inline?
(emit-code #f (make-glil-const #f)) ;; push #f as handler
(comp-push handler))
(if pre-unwind-handler
(comp-push pre-unwind-handler)