From ec431bcf0cf76c4545b1851950a11aa56b58fe37 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 27 May 1992 22:44:52 +0000 Subject: [PATCH] Fix wrong variable name. --- v7/src/runtime/utabs.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/utabs.scm b/v7/src/runtime/utabs.scm index 146aa253d..a8773d391 100644 --- a/v7/src/runtime/utabs.scm +++ b/v7/src/runtime/utabs.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 14.10 1992/05/27 22:10:29 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 14.11 1992/05/27 22:44:52 jinx Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -46,7 +46,7 @@ MIT in each case. |# (old-vector (vector-copy identification-vector))) (let loop ((fields '(CONSOLE-WIDTH CONSOLE-HEIGHT))) (if (not (null? fields)) - (let ((slot (microcode-identification-slot (car fields)))) + (let ((slot (microcode-identification-vector-slot (car fields)))) (vector-set! old-vector slot false) (vector-set! new-vector slot false) (loop (cdr fields))))) -- 2.25.1