smp: Use without-interruption. Squash into 6785039.
authorMatt Birkholz <puck@birchwood-abbey.net>
Fri, 13 Mar 2015 07:12:50 +0000 (00:12 -0700)
committerMatt Birkholz <puck@birchwood-abbey.net>
Fri, 13 Mar 2015 07:12:50 +0000 (00:12 -0700)
src/runtime/gencache.scm

index ced613dc10eb758db289d1dcee983ed2f4910a20..d036f7357a0ef99de377e65f521b08413d30a98b 100644 (file)
@@ -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)