scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

GC some dead variables.

This commit is contained in:
sperber 2003-02-17 16:05:26 +00:00
parent 90f6b38a68
commit 33c1b8fb0e
4 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scsh/dirstuff1.c
View File

@ -15,7 +15,6 @@
s48_value directory_files(s48_value sch_dirname)
{
char *fname;
struct dirent *dirent;
DIR *d;
s48_value dirlist = S48_NULL;

2
scsh/md5.c
View File

@ -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));
}

2
scsh/network1.c
View File

@ -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),

1
scsh/time1.c
View File

@ -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);
}