From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Mar 2010 05:20:55 +0000 (-0800)
Subject: Fix problem with re-reading microcode tables on disk-restore.
X-Git-Tag: 20100708-Gtk~126^2~7
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c9a7c2343579732c070818380d4a95b85143944f;p=mit-scheme.git

Fix problem with re-reading microcode tables on disk-restore.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 7e327fed7..ddca91aa0 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2597,7 +2597,7 @@ USA.
 	  microcode-type/code-limit
 	  microcode-type/name->code)
   (export (runtime save/restore)
-	  re-read-microcode-tables!)
+	  read-microcode-tables!)
   (initialization (initialize-package!)))
 
 (define-package (runtime number)
diff --git a/src/runtime/savres.scm b/src/runtime/savres.scm
index 7a767c755..ec9a13ed0 100644
--- a/src/runtime/savres.scm
+++ b/src/runtime/savres.scm
@@ -72,7 +72,7 @@ USA.
 			   (set! time-world-saved time)
 			   (if (string? id) unspecific #f)))))))
 		 ((ucode-primitive set-fixed-objects-vector!) fixed-objects))))
-	   (re-read-microcode-tables!)
+	   (read-microcode-tables!)
 	   (lambda ()
 	     (set! time-world-saved time)
 	     (fluid-let ((*within-restore-window?* #t))
diff --git a/src/runtime/utabs.scm b/src/runtime/utabs.scm
index 5d99c8cf1..d4f7e035c 100644
--- a/src/runtime/utabs.scm
+++ b/src/runtime/utabs.scm
@@ -69,14 +69,6 @@ USA.
 	(microcode-identification-item 'CONSOLE-HEIGHT))
   unspecific)
 
-(define (re-read-microcode-tables!)
-  (set! identification-vector ((ucode-primitive microcode-identify)))
-  (set! microcode-id/tty-x-size
-	(microcode-identification-item 'CONSOLE-WIDTH))
-  (set! microcode-id/tty-y-size
-	(microcode-identification-item 'CONSOLE-HEIGHT))
-  unspecific)
-
 (define (intern string)
   ((ucode-primitive string->symbol)
    (let ((size (string-length string)))