summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-10-18 13:24:21 +0200
committerAndy Wingo <wingo@pobox.com>2015-10-21 11:49:20 +0200
commitd7199da8c9d287b9602e053d470d0a822b4f7cec (patch)
tree8e73e591bc5631e08eb5bcc14d9ffccb5e8f8264
parenta0a8741608a4094cbd0f4d25d6bfdec1ff9e48eb (diff)
downloadguile-d7199da8c9d287b9602e053d470d0a822b4f7cec.tar.gz
Fix prompt miscompilation
* module/language/cps/compile-bytecode.scm (compile-function): Fix miscompilation when the handler body is forwarded.
-rw-r--r--module/language/cps/compile-bytecode.scm2
1 files changed, 1 insertions, 1 deletions
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))