[Guile-commits] 02/12: Fix prompt miscompilation

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit d7199da8c9d287b9602e053d470d0a822b4f7cec
Author: Andy Wingo <address@hidden>
Date:   Sun Oct 18 13:24:21 2015 +0200

    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 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/language/cps/compile-bytecode.scm 
b/module/language/cps/compile-bytecode.scm
index 265189b..498bac9 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))