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 b065b7b92fc8aa1f52e3590b68fcf611868d8b31..42f129f32e668f8c6eb0e43731092645c13b0ad4 100644 (file)
--- 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))
 \f
 (define ((%copy-pair type) obj)
   (%%copy-pair type obj))