smp: without-interrupts: parser-buffer.scm

diff --git a/README.txt b/README.txt
index 01a7c6d8e6581d16b7a07a7d4e8cd8df68d24b1d..4bf597ac4d4bbd68dc636e1907257a9f789719f2 100644 (file)
--- 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 b72504902fc27fd7175b12eccb1633f03cd0f275..0df0040502ef898160e11c35dff5703e829fa0bb 100644 (file)
--- 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)))