Use without-preemption in runtime/ffi.scm.

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index a89582f22bb675f7575373910d93964a6f089f4f..c0a983edbf5724d07cbddcda2d7724c43ac6fec4 100644 (file)
--- a/src/runtime/ffi.scm
+++ b/src/runtime/ffi.scm
@@ -313,7 +313,7 @@ USA.
      (if (alien-function? arg)
         (alien-function-cache! arg)))
    args)
-  (without-interrupts
+  (without-preemption
    (lambda ()
      (call-alien* alien-function args))))