cwebber pushed a commit to branch compile-to-js-merge
in repository guile.
commit 602bfb559dc00375cacf3f70e04b8b80e5c5959f
Author: Ian Price <[email protected]>
AuthorDate: Thu Jun 15 20:25:24 2017 +0100
Update primitives in no-values-primitives
* module/language/js-il/inlining.scm (no-values-primitives): Update.
---
module/language/js-il/inlining.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/module/language/js-il/inlining.scm
b/module/language/js-il/inlining.scm
index 72df222..7d30dbe 100644
--- a/module/language/js-il/inlining.scm
+++ b/module/language/js-il/inlining.scm
@@ -69,7 +69,7 @@
counts)
(define no-values-primitives
- '(define!
+ '(
cache-current-module!
set-cdr!
set-car!
@@ -83,6 +83,7 @@
unwind
push-fluid
pop-fluid
+ handle-interrupts
))
(define no-values-primitive?
