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

fix changes to command-line handle that broke the Windows build

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-01 12:41:26 -06:00
parent 7b97d09637
commit 29205fa91a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/racket/cmdline.inc
View File

@ -862,7 +862,7 @@ static int run_from_cmd_line(int argc, char *_argv[],
--argc; --argc;
if (!*(argv[0])) { if (!*(argv[0])) {
/* #f => no collects path */ /* #f => no collects path */
collects_path = scheme_false; collects_path = scheme_make_false();
} else } else
collects_path = check_make_path(prog, real_switch, argv[0]); collects_path = check_make_path(prog, real_switch, argv[0]);
was_config_flag = 1; was_config_flag = 1;
@ -1180,12 +1180,12 @@ static int run_from_cmd_line(int argc, char *_argv[],
/* Setup path for "collects" collection directory: */ /* Setup path for "collects" collection directory: */
if (!collects_path) { if (!collects_path) {
if (!_coldir[_coldir_offset]) if (!_coldir[_coldir_offset])
collects_path = scheme_false; collects_path = scheme_make_false();
else else
collects_path = scheme_make_path(_coldir XFORM_OK_PLUS _coldir_offset); collects_path = scheme_make_path(_coldir XFORM_OK_PLUS _coldir_offset);
} else if (!SCHEME_FALSEP(collects_path)) } else if (!SAME_OBJ(collects_path, scheme_make_false()))
collects_path = scheme_path_to_complete_path(collects_path, NULL); collects_path = scheme_path_to_complete_path(collects_path, NULL);
if (SCHEME_FALSEP(collects_path)) { if (SAME_OBJ(collects_path, scheme_make_false())) {
/* empty list of directories => don't set collection dirs /* empty list of directories => don't set collection dirs
and don't use collection links files */ and don't use collection links files */
skip_coll_dirs = 1; skip_coll_dirs = 1;