+ removed superfluous GC-protects
This commit is contained in:
parent
c3febf605a
commit
ec7a66d221
|
@ -53,10 +53,10 @@ char** ffit_extract_list_of_strings(s48_value list)
|
||||||
{
|
{
|
||||||
char **a;
|
char **a;
|
||||||
int l, i;
|
int l, i;
|
||||||
s48_value res, e;
|
s48_value e;
|
||||||
S48_DECLARE_GC_PROTECT(3);
|
S48_DECLARE_GC_PROTECT(2);
|
||||||
|
|
||||||
S48_GC_PROTECT_3(list, res, e);
|
S48_GC_PROTECT_2(list, e);
|
||||||
l = length_scheme_list(list);
|
l = length_scheme_list(list);
|
||||||
|
|
||||||
if ((a = (char **) calloc(l + 1, sizeof(char *))) == NULL)
|
if ((a = (char **) calloc(l + 1, sizeof(char *))) == NULL)
|
||||||
|
|
Loading…
Reference in New Issue