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

fix direct references to scheme_null in cmdline.inc (which break the Windows build)

Browse Source 
svn: r8110
This commit is contained in:
Matthew Flatt 2007-12-24 01:38:50 +00:00
parent a715b3eefe
commit cd3cfdaa07
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/cmdline.inc
View File

@ -325,7 +325,7 @@ static int finish_cmd_line_run(FinishArgs *fa, Repl_Proc repl)
mv = p->ku.multiple.array; mv = p->ku.multiple.array;
cnt = p->ku.multiple.count; cnt = p->ku.multiple.count;
scheme_detach_multple_array(mv); scheme_detach_multple_array(mv);
e = scheme_null; e = scheme_make_null();
while (cnt--) { while (cnt--) {
e = scheme_make_pair(mv[cnt], e); e = scheme_make_pair(mv[cnt], e);
} }
@ -335,7 +335,7 @@ static int finish_cmd_line_run(FinishArgs *fa, Repl_Proc repl)
cp = scheme_get_param(scheme_current_config(), MZCONFIG_PRINT_HANDLER); cp = scheme_get_param(scheme_current_config(), MZCONFIG_PRINT_HANDLER);
while (!SCHEME_NULLP(e)) { while (SCHEME_PAIRP(e)) {
a[0] = SCHEME_CAR(e); a[0] = SCHEME_CAR(e);
scheme_apply_multi(cp, 1, a); scheme_apply_multi(cp, 1, a);
e = SCHEME_CDR(e); e = SCHEME_CDR(e);