354 |
{ /* scope */ |
{ /* scope */ |
355 |
SCM result = SCM_BOOL_F; |
SCM result = SCM_BOOL_F; |
356 |
size_t buf_size = max_path_len + 1 + filename_len + max_ext_len + 1; |
size_t buf_size = max_path_len + 1 + filename_len + max_ext_len + 1; |
357 |
char *buf = SCM_MUST_MALLOC (buf_size); |
char *buf = scm_malloc (buf_size); |
358 |
|
|
359 |
/* This simplifies the loop below a bit. */ |
/* This simplifies the loop below a bit. */ |
360 |
if (SCM_NULL_OR_NIL_P (extensions)) |
if (SCM_NULL_OR_NIL_P (extensions)) |
400 |
} |
} |
401 |
|
|
402 |
end: |
end: |
403 |
scm_must_free (buf); |
free (buf); |
|
scm_done_free (buf_size); |
|
404 |
SCM_ALLOW_INTS; |
SCM_ALLOW_INTS; |
405 |
return result; |
return result; |
406 |
} |
} |