From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 23 May 1992 01:13:04 +0000 (+0000)
Subject: Change read-microcode-tables! to re-read-microcode-tables!
X-Git-Tag: 20090517-FFI~9384
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=97708bf78661c57819adb29c31531c7b30a9418e;p=mit-scheme.git

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

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 5ba1c862b..d83ca9e28 100644
--- 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 a4a413393..6698433c1 100644
--- 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 2aa9acb13..ec7f5c360 100644
--- 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)