From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 6 Mar 2015 22:14:15 +0000 (-0700)
Subject: smp: without-interrupts: parser-buffer.scm
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=29411b859ba11d9c1e88ec79553765383e32c642;p=mit-scheme.git

smp: without-interrupts: parser-buffer.scm
---

diff --git a/README.txt b/README.txt
index 01a7c6d8e..4bf597ac4 100644
--- a/README.txt
+++ b/README.txt
@@ -1379,6 +1379,9 @@ The hits with accompanying analysis:
 
   parser-buffer.scm:383:	      (without-interrupts
 
+	OK.  Avoiding aborts that would break the parser buffer(?).
+	Replaced with without-interruption.
+
   prgcop.scm:163:  (with-absolutely-no-interrupts thunk))
 
   process.scm:85:  (without-interrupts
diff --git a/src/runtime/parser-buffer.scm b/src/runtime/parser-buffer.scm
index b72504902..0df004050 100644
--- a/src/runtime/parser-buffer.scm
+++ b/src/runtime/parser-buffer.scm
@@ -380,7 +380,7 @@ USA.
 			       (fix:<= end* (fix:quotient n 4)))
 			  (make-wide-string (fix:quotient n 2))
 			  string))))
-	      (without-interrupts
+	      (without-interruption
 	       (lambda ()
 		 (do ((i index (fix:+ i 1))
 		      (j 0 (fix:+ j 1)))