From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 10 Jul 2015 19:47:00 +0000 (-0700)
Subject: Use without-preemption in runtime/ffi.scm.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f230388eabbe444b3b71d3badc0ad083aafbf091;p=mit-scheme.git

Use without-preemption in runtime/ffi.scm.
---

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index a89582f22..c0a983edb 100644
--- 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))))