Change read-microcode-tables! to re-read-microcode-tables!

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 5ba1c862bae98154676f2b5f9b2648edb484e024..d83ca9e286db48a66d74ff681a49d2e38a5c6ea0 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.149 1992/05/23 00:11:27 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.150 1992/05/23 01:13:04 jinx Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -1252,7 +1252,7 @@ MIT in each case. |#
          microcode-type/code-limit
          microcode-type/name->code)
   (export (runtime save/restore)
-         read-microcode-tables!)
+         re-read-microcode-tables!)
   (initialization (initialize-package!)))
 
 (define-package (runtime number)

diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm
index a4a4133932ad3f1b45dd3195f0b2a687425f65f4..6698433c1add247c3ee2a0b76a808bd2b0147616 100644 (file)
--- a/v7/src/runtime/savres.scm
+++ b/v7/src/runtime/savres.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.24 1992/02/08 15:08:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.25 1992/05/23 01:12:47 jinx Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -101,7 +101,7 @@ MIT in each case. |#
                    (error "Disk save failed:" filename))))
              (continuation after-suspend)))
           ((ucode-primitive set-fixed-objects-vector!) fixed-objects)
-          (read-microcode-tables!)
+          (re-read-microcode-tables!)
           after-restore)))))))
 
 (define (dump-world/kernel filename after-suspend after-restore)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 2aa9acb131770d3c0140c4f8898c878d642e33a5..ec7f5c3602bf4b056a9f3799104baafd90e23fa0 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.149 1992/05/23 00:11:27 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.150 1992/05/23 01:13:04 jinx Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -1252,7 +1252,7 @@ MIT in each case. |#
          microcode-type/code-limit
          microcode-type/name->code)
   (export (runtime save/restore)
-         read-microcode-tables!)
+         re-read-microcode-tables!)
   (initialization (initialize-package!)))
 
 (define-package (runtime number)