From abc5901c5d691b01009a1c4d9e70d2f6162c8856 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Thu, 4 Nov 1999 20:10:28 +0000
Subject: [PATCH] added GC_PROTECT

---
 scsh/tty1.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/scsh/tty1.c b/scsh/tty1.c
index 6c2fa7c..1850f4c 100644
--- a/scsh/tty1.c
+++ b/scsh/tty1.c
@@ -58,8 +58,10 @@ int scheme_tcgetattrB(int fd, char *control_chars, s48_value scmvec)
 {
   struct termios t;
   int result = tcgetattr(fd, &t);
+  S48_DECLARE_GC_PROTECT(1);
+  S48_GC_PROTECT_1(scmvec);
   // JMG  int *ivec = ADDRESS_AFTER_HEADER(scmvec, int);
-
+  
   if (result != -1) {
       memcpy(control_chars, t.c_cc, NCCS);
       S48_VECTOR_SET(scmvec, 0, s48_enter_integer(t.c_iflag));
@@ -69,7 +71,7 @@ int scheme_tcgetattrB(int fd, char *control_chars, s48_value scmvec)
       S48_VECTOR_SET(scmvec, 4, s48_enter_fixnum(cfgetispeed(&t)));
       S48_VECTOR_SET(scmvec, 5, s48_enter_fixnum(cfgetospeed(&t)));
       }
-
+  S48_GC_UNPROTECT();
   return result;
   }