summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/tree-il/compile-glil.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm
index 41c78c391..7148e1e25 100644
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -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)