diff options
Diffstat (limited to 'module/language/cps/compile-bytecode.scm')
-rw-r--r-- | module/language/cps/compile-bytecode.scm | 4 |
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")) |