summaryrefslogtreecommitdiff
path: root/module/language/cps/compile-bytecode.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r--module/language/cps/compile-bytecode.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index 5157ecb70..5e56b406f 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -31,6 +31,7 @@
#:use-module (language cps slot-allocation)
#:use-module (language cps utils)
#:use-module (language cps closure-conversion)
+ #:use-module (language cps handle-interrupts)
#:use-module (language cps optimize)
#:use-module (language cps reify-primitives)
#:use-module (language cps renumber)
@@ -364,7 +365,9 @@
(($ $primcall 'unwind ())
(emit-unwind asm))
(($ $primcall 'atomic-box-set! (box val))
- (emit-atomic-box-set! asm (from-sp (slot box)) (from-sp (slot val))))))
+ (emit-atomic-box-set! asm (from-sp (slot box)) (from-sp (slot val))))
+ (($ $primcall 'handle-interrupts ())
+ (emit-handle-interrupts asm))))
(define (compile-values label exp syms)
(match exp
@@ -580,6 +583,7 @@
(set! exp (convert-closures exp))
(set! exp (optimize-first-order-cps exp opts))
(set! exp (reify-primitives exp))
+ (set! exp (add-handle-interrupts exp))
(renumber exp))
(define (compile-bytecode exp env opts)