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

fix Windows build

Browse Source 
Thanks to Ben Goetter
This commit is contained in:
Matthew Flatt 2012-09-07 16:11:34 -06:00
parent 834f4a5bf3
commit 4d8ee32fd7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/cmdline.inc
View File

@ -561,9 +561,11 @@ static Scheme_Object *reverse_path_list(Scheme_Object *l, int rel_to_cwd)
static Scheme_Object *get_log_level(char *prog, char *real_switch, const char *envvar, const char *what, GC_CAN_IGNORE char *str) static Scheme_Object *get_log_level(char *prog, char *real_switch, const char *envvar, const char *what, GC_CAN_IGNORE char *str)
{ {
int k, len, default_lvl = -1; int k, len, default_lvl = -1;
Scheme_Object *l = scheme_null, *last = NULL; Scheme_Object *l, *last = NULL;
GC_CAN_IGNORE char *s, *orig_str = str; GC_CAN_IGNORE char *s, *orig_str = str;
l = scheme_make_null();
while (1) { while (1) {
if (!*str) { if (!*str) {
if (default_lvl == -1) default_lvl = 0; if (default_lvl == -1) default_lvl = 0;