From: Guillermo J. Rozas Date: Thu, 28 May 1992 18:38:27 +0000 (+0000) Subject: Remove spurious test. X-Git-Tag: 20090517-FFI~9330 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=582e40f82910d84d157e97d68e6832201b6a28f3;p=mit-scheme.git Remove spurious test. --- diff --git a/v7/src/edwin/termcap.scm b/v7/src/edwin/termcap.scm index 2b3b600f4..c604c87af 100644 --- a/v7/src/edwin/termcap.scm +++ b/v7/src/edwin/termcap.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/termcap.scm,v 1.2 1992/04/22 21:11:30 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/termcap.scm,v 1.3 1992/05/28 18:38:27 jinx Exp $ -Copyright (c) 1990 Massachusetts Institute of Technology +Copyright (c) 1990-1992 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -131,8 +131,7 @@ MIT in each case. |# (ts-visible-bell false read-only true)) (define (make-termcap-description terminal-type-name) - (if (or (string-ci=? terminal-type-name "ansi.sys") - (string-ci=? terminal-type-name "pc-console")) + (if (string-ci=? terminal-type-name "ansi.sys") (let ((x-size (output-port/x-size console-output-port)) (y-size (output-port/y-size console-output-port))) (make-ansi-terminal-description x-size y-size))