core: Throw instead of segfault on non-existing input file. WIP.
Reported by theruran. * src/posix.c (open_input_file): Call error instead of failing silently.
This commit is contained in:
parent
99a971fe73
commit
34cfd9b850
|
@ -214,7 +214,10 @@ current_input_port ()
|
||||||
struct scm *
|
struct scm *
|
||||||
open_input_file (struct scm *file_name)
|
open_input_file (struct scm *file_name)
|
||||||
{
|
{
|
||||||
return make_number (mes_open (cell_bytes (file_name->string), O_RDONLY, 0));
|
int filedes = mes_open (cell_bytes (file_name->string), O_RDONLY, 0);
|
||||||
|
if (filedes == -1)
|
||||||
|
error (cell_symbol_system_error, cons (make_string0 ("No such file or directory"), file_name));
|
||||||
|
return make_number (filedes);
|
||||||
}
|
}
|
||||||
|
|
||||||
struct scm *
|
struct scm *
|
||||||
|
|
Loading…
Reference in New Issue