From 33c1b8fb0e07d68bd97389509301ab846341d921 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Mon, 17 Feb 2003 16:05:26 +0000
Subject: [PATCH] GC some dead variables.

---
 scsh/dirstuff1.c | 1 -
 scsh/md5.c       | 2 +-
 scsh/network1.c  | 2 --
 scsh/time1.c     | 1 -
 4 files changed, 1 insertion(+), 5 deletions(-)

diff --git a/scsh/dirstuff1.c b/scsh/dirstuff1.c
index 1eba467..335533e 100644
--- a/scsh/dirstuff1.c
+++ b/scsh/dirstuff1.c
@@ -15,7 +15,6 @@
 
 s48_value directory_files(s48_value sch_dirname)
 {
-  char *fname;
   struct dirent *dirent;
   DIR *d;
   s48_value dirlist = S48_NULL;
diff --git a/scsh/md5.c b/scsh/md5.c
index 8bc73d0..edc7d3c 100644
--- a/scsh/md5.c
+++ b/scsh/md5.c
@@ -320,7 +320,7 @@ static s48_value MD5Update_stub (s48_value sch_context, s48_value input){
 
 static s48_value MD5Final_stub (s48_value sch_context){
   unsigned char digest[16];
-  int i;
+
   MD5Final (digest, extract_context (sch_context));
   return (s48_enter_substring (digest, 16));
 }
diff --git a/scsh/network1.c b/scsh/network1.c
index fff98d6..8592daf 100644
--- a/scsh/network1.c
+++ b/scsh/network1.c
@@ -83,7 +83,6 @@ s48_value scheme_connect(s48_value sock, s48_value family, s48_value scheme_name
     case AF_UNIX: 
       {
 	struct sockaddr_un name;
-	int ret;
 	int scheme_length=S48_STRING_LENGTH(scheme_name);
 	
 	memset(&name, 0, sizeof(name));
@@ -293,7 +292,6 @@ recv_substring(s48_value scm_sockfd, s48_value flags, s48_value buf,
 		  buf_part, end-start, 
 		  s48_extract_fixnum (flags),
 		  (struct sockaddr *)&name, &namelen);
-  s48_value result;
   
   if (cc >= 0)
     return (s48_cons (s48_enter_fixnum (cc), 
diff --git a/scsh/time1.c b/scsh/time1.c
index a4717b8..d9798fd 100644
--- a/scsh/time1.c
+++ b/scsh/time1.c
@@ -394,7 +394,6 @@ s48_value format_date(s48_value sch_fmt, s48_value sch_sec, s48_value sch_min,
     if( zone && S48_STRING_P(sch_tz) ) {
 	oldenv = make_newenv(sch_tz, newenv);
 	if( !oldenv ) {
-	    int err = errno;
 	    Free(fmt);
 	    s48_raise_os_error_1(errno, sch_fmt);
 	    }