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

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 7e327fed70034b41bdb95f9f410d7148f5357df0..ddca91aa0db605e53bd5a21ab9859d09c023ee4b 100644 (file)
--- 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 7a767c7558e58481f103af974bf930641979ee8b..ec9a13ed07c6be443b3ed150e6c2cb7144367f7a 100644 (file)
--- 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 5d99c8cf1324114cb28ec4463a879b0f3fc2fdd5..d4f7e035c410953dd710d13232545dfe86f60826 100644 (file)
--- 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)))