From d7199da8c9d287b9602e053d470d0a822b4f7cec Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 18 Oct 2015 13:24:21 +0200 Subject: [PATCH] Fix prompt miscompilation * module/language/cps/compile-bytecode.scm (compile-function): Fix miscompilation when the handler body is forwarded. --- module/language/cps/compile-bytecode.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index 265189b17..498bac9b3 100644 --- a/module/language/cps/compile-bytecode.scm +++ b/module/language/cps/compile-bytecode.scm @@ -224,7 +224,7 @@ ((src . dst) (emit-mov asm dst src))) (lookup-parallel-moves handler allocation)) (emit-reset-frame asm frame-size) - (emit-br asm khandler-body))))) + (emit-br asm (forward-label khandler-body)))))) (($ $primcall 'cache-current-module! (sym scope)) (emit-cache-current-module! asm (slot sym) (constant scope))) (($ $primcall 'free-set! (closure idx value))