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

Move S48_GC_UNPROTECT to proper place.

This commit is contained in:
sperber 2007-08-21 16:05:49 +00:00
parent 71a747b4f2
commit d125af1559
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/network1.c
View File

@ -380,13 +380,14 @@ s48_value send_substring(s48_value scm_sockfd,
buf_part, end-start, buf_part, end-start,
flags, flags,
(struct sockaddr *)&name, sizeof(name)); (struct sockaddr *)&name, sizeof(name));
break; S48_GC_UNPROTECT();
break;
} }
default: default:
s48_raise_argument_type_error (s48_extract_fixnum (scm_family)); s48_raise_argument_type_error (s48_extract_fixnum (scm_family));
/* error unknown address family */ /* error unknown address family */
} }
S48_GC_UNPROTECT();
if (n >= 0) if (n >= 0)
return s48_enter_fixnum (n); return s48_enter_fixnum (n);