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

Remove without-interrupts from runtime/gencache.scm.

It was only used to postpone aborts that would leave data structures
inconsistent.  Access to these caches needs to be serial.
---

diff --git a/src/runtime/gencache.scm b/src/runtime/gencache.scm
index ced613dc1..d036f7357 100644
--- a/src/runtime/gencache.scm
+++ b/src/runtime/gencache.scm
@@ -459,7 +459,7 @@ USA.
 		   ;; Found a free line.  First perform all of the
 		   ;; entry displacements, then return the subsequent
 		   ;; free line.
-		   (without-interrupts
+		   (without-interruption
 		    (lambda ()
 		      (let loop ((free-line line) (lines lines))
 			(if (null? lines)