From 1980b2b6f0151a1a854c154dac64481dbe04fb99 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 27 May 1992 22:10:29 +0000 Subject: [PATCH] Fix missing parens bug. --- 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 819251e61..146aa253d 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.9 1992/05/27 21:51:20 jinx Exp $ +$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 $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -41,7 +41,7 @@ MIT in each case. |# (let ((file-name ((ucode-primitive microcode-tables-filename)))) (if (file-exists? file-name) (read-microcode-tables! file-name) - (let ((new-identification (ucode-primitive microcode-identify))) + (let ((new-identification ((ucode-primitive microcode-identify)))) (let ((new-vector (vector-copy new-identification)) (old-vector (vector-copy identification-vector))) (let loop ((fields '(CONSOLE-WIDTH CONSOLE-HEIGHT))) -- 2.25.1