From 217167c6b2e6e400306c8cb4a0bff86c17eef28c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 5 Feb 2010 11:30:53 +0100 Subject: [PATCH] push a prompt handler value even in the inline-handler case * 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. --- module/language/tree-il/compile-glil.scm | 4 ++-- 1 file 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)