From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 29 May 2013 22:56:48 +0000 (-0700)
Subject: Revert tterm.c changes.
X-Git-Tag: release-9.2.0~177
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2dc54b0fcc56ae79cd4e157af0661d3e8b6852d5;p=mit-scheme.git

Revert tterm.c changes.

tterm.c is not used when not USE_TERMCAP, so these old changes are
unnecessary... and potentially confusing.
---

diff --git a/src/microcode/tterm.c b/src/microcode/tterm.c
index e6527faff..c9d969c96 100644
--- a/src/microcode/tterm.c
+++ b/src/microcode/tterm.c
@@ -102,23 +102,15 @@ DEFINE_PRIMITIVE ("TERMCAP-GET-NUMBER", Prim_termcap_get_number, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
   {
-#ifdef USE_TERMCAP
     int result = (tgetnum (STRING_ARG (1)));
     PRIMITIVE_RETURN ((result < 0) ? SHARP_F : (long_to_integer (result)));
-#else
-    PRIMITIVE_RETURN (SHARP_F);
-#endif
   }
 }
 
 DEFINE_PRIMITIVE ("TERMCAP-GET-FLAG", Prim_termcap_get_flag, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
-#ifdef USE_TERMCAP
   PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT ((tgetflag (STRING_ARG (1))) != 0));
-#else
-  PRIMITIVE_RETURN (SHARP_F);
-#endif
 }
 
 DEFINE_PRIMITIVE ("TERMCAP-GET-STRING", Prim_termcap_get_string, 1, 1, 0)