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.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index d6d1737b3..ad5e0024d 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -417,7 +417,9 @@
(#('throw/value param (val))
(emit-throw/value asm (from-sp (slot val)) param))
(#('throw/value+data param (val))
- (emit-throw/value+data asm (from-sp (slot val)) param))))
+ (emit-throw/value+data asm (from-sp (slot val)) param))
+ (#('unreachable #f ())
+ (emit-unreachable asm))))
(define (compile-prompt label k kh escape? tag)
(let ((receive-args (gensym "handler"))