From cd3cfdaa0799fe437c1835bf7bfe1a02677baf6c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 24 Dec 2007 01:38:50 +0000
Subject: [PATCH] fix direct references to scheme_null in cmdline.inc (which
 break the Windows build)

svn: r8110
---
 src/mzscheme/cmdline.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/cmdline.inc b/src/mzscheme/cmdline.inc
index 64fa7a9f5c..42b763465d 100644
--- a/src/mzscheme/cmdline.inc
+++ b/src/mzscheme/cmdline.inc
@@ -325,7 +325,7 @@ static int finish_cmd_line_run(FinishArgs *fa, Repl_Proc repl)
             mv = p->ku.multiple.array;
             cnt = p->ku.multiple.count;
             scheme_detach_multple_array(mv);
-            e = scheme_null;
+            e = scheme_make_null();
             while (cnt--) {
               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);
           
-          while (!SCHEME_NULLP(e)) {
+          while (SCHEME_PAIRP(e)) {
             a[0] = SCHEME_CAR(e);
             scheme_apply_multi(cp, 1, a);
             e = SCHEME_CDR(e);