From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 17 Jun 2015 02:15:57 +0000 (-0700)
Subject: Remove without-interrupts from runtime/gdbm.scm.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~58
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1d04a1d94b88f88e0e8fd4b7031457c69d83de8c;p=mit-scheme.git

Remove without-interrupts from runtime/gdbm.scm.

It was only used to postpone aborts that would leak gdbfs.
---

diff --git a/src/runtime/gdbm.scm b/src/runtime/gdbm.scm
index bb9f43f34..b8d324d54 100644
--- a/src/runtime/gdbm.scm
+++ b/src/runtime/gdbm.scm
@@ -58,7 +58,7 @@ USA.
   (if (not (gdbm-available?))
       (error "This Scheme system was built without gdbm support."))
   (let ((filename (->namestring (merge-pathnames filename))))
-    (without-interrupts
+    (without-interruption
      (lambda ()
        (add-to-gc-finalizer!
 	gdbf-finalizer