projects / mit-scheme.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f2fc0c5)
Remove without-interrupts from runtime/parser-buffer.scm.
authorMatt Birkholz <puck@birchwood-abbey.net>
Wed, 17 Jun 2015 02:18:21 +0000 (19:18 -0700)
committerMatt Birkholz <puck@birchwood-abbey.net>
Mon, 17 Aug 2015 23:52:58 +0000 (16:52 -0700)
It was only used to postpone aborts that would leave data structures
inconsistent.

src/runtime/parser-buffer.scm patch | blob | history

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)))
MIT/GNU Scheme, Pucked