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

View File

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