282 |
size_t max_path_len; /* maximum length of any PATH element */ |
size_t max_path_len; /* maximum length of any PATH element */ |
283 |
size_t max_ext_len; /* maximum length of any EXTENSIONS element */ |
size_t max_ext_len; /* maximum length of any EXTENSIONS element */ |
284 |
|
|
285 |
SCM_VALIDATE_LIST (1,path); |
SCM_VALIDATE_LIST (1, path); |
286 |
SCM_VALIDATE_STRING (2, filename); |
SCM_VALIDATE_STRING (2, filename); |
287 |
if (SCM_UNBNDP (extensions)) |
if (SCM_UNBNDP (extensions)) |
288 |
extensions = SCM_EOL; |
extensions = SCM_EOL; |
289 |
else |
else |
290 |
SCM_VALIDATE_LIST (3,extensions); |
SCM_VALIDATE_LIST (3, extensions); |
291 |
|
|
292 |
filename_chars = SCM_STRING_CHARS (filename); |
filename_chars = SCM_STRING_CHARS (filename); |
293 |
filename_len = SCM_STRING_LENGTH (filename); |
filename_len = SCM_STRING_LENGTH (filename); |