suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Oops, file checking should be on filename.

Browse Source
This commit is contained in:
Leif Andersen 2016-07-23 00:10:09 -04:00
parent b0f266fad1
commit 8588c43709
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/main.c
View File

@ -126,9 +126,9 @@ static Scheme_Object *get_init_filename(Scheme_Env *env,
char *filename; char *filename;
filename = SCHEME_PATH_VAL(f); filename = SCHEME_PATH_VAL(f);
filename = scheme_expand_filename(filename, -1, "startup", NULL, SCHEME_GUARD_FILE_EXISTS); filename = scheme_expand_filename(filename, -1, "startup", NULL, SCHEME_GUARD_FILE_EXISTS);
if(scheme_file_exists(f)) { if(scheme_file_exists(filename)) {
p->error_buf = save; p->error_buf = save;
return f; return scheme_make_path(filename);
} }
} }