From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 17 Jun 2015 02:20:31 +0000 (-0700)
Subject: Unalias with-absolutely-no-interrupts in runtime/prgcop.scm.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~55
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=860c260412f57b99c9ad2229cf6f9a32d7dd7fc0;p=mit-scheme.git

Unalias with-absolutely-no-interrupts in runtime/prgcop.scm.

It is not atomic in multiprocessing worlds.  The alias "atomically" is
no longer appropriate.
---

diff --git a/src/runtime/prgcop.scm b/src/runtime/prgcop.scm
index b065b7b92..42f129f32 100644
--- a/src/runtime/prgcop.scm
+++ b/src/runtime/prgcop.scm
@@ -135,7 +135,7 @@ USA.
 (define (%copy-compiled-code-address obj)
   (let ((new-block (copy-compiled-code-block
 		    (compiled-code-address->block obj))))
-    (atomically
+    (with-absolutely-no-interrupts
      (lambda ()
        (object-new-type
 	(object-type obj)
@@ -158,9 +158,6 @@ USA.
 	((not (fix:< i len)))
       (vector-set! new i (copy-object (vector-ref new i))))
     typed))
-
-(define-integrable (atomically thunk)
-  (with-absolutely-no-interrupts thunk))
 
 (define ((%copy-pair type) obj)
   (%%copy-pair type obj))