From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 27 Aug 1992 06:33:40 +0000 (+0000)
Subject: Make sure that termcap primitives are implemented before invoking
X-Git-Tag: 20090517-FFI~9071
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=988dcbf035a74d85a8b8087b58d2b2c8b62b7ef2;p=mit-scheme.git

Make sure that termcap primitives are implemented before invoking
them.
---

diff --git a/v7/src/edwin/termcap.scm b/v7/src/edwin/termcap.scm
index c604c87af..a40d5d6d1 100644
--- a/v7/src/edwin/termcap.scm
+++ b/v7/src/edwin/termcap.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$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 $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/termcap.scm,v 1.4 1992/08/27 06:33:40 jinx Exp $
 
 Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
@@ -135,7 +135,8 @@ MIT in each case. |#
       (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))
-      (and (termcap-initialize terminal-type-name)
+      (and (implemented-primitive-procedure? termcap-initialize)
+	   (termcap-initialize terminal-type-name)
 	   (let ((supdup? (string=? terminal-type-name "supdup"))
 		 (tn-standout-marker-width (termcap-get-number "sg"))
 		 (ts-cursor-down