diff options
author | Andy Wingo <wingo@pobox.com> | 2015-10-18 13:24:21 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-10-21 11:49:20 +0200 |
commit | d7199da8c9d287b9602e053d470d0a822b4f7cec (patch) | |
tree | 8e73e591bc5631e08eb5bcc14d9ffccb5e8f8264 | |
parent | a0a8741608a4094cbd0f4d25d6bfdec1ff9e48eb (diff) | |
download | guile-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.scm | 2 |
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)) |