From f230388eabbe444b3b71d3badc0ad083aafbf091 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 10 Jul 2015 12:47:00 -0700
Subject: [PATCH] Use without-preemption in runtime/ffi.scm.

---
 src/runtime/ffi.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))))
 
-- 
2.25.1