From c6cd781e8226546425fc461e76852f7fbd700554 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 9 Apr 2010 20:05:07 +0000
Subject: [PATCH] fix Windows build

svn: r18772
---
 src/mzscheme/cmdline.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/cmdline.inc b/src/mzscheme/cmdline.inc
index b3f8166f63..c16a6cc63d 100644
--- a/src/mzscheme/cmdline.inc
+++ b/src/mzscheme/cmdline.inc
@@ -198,7 +198,7 @@ static void configure_environment(Scheme_Object *mod)
         break;
       }
     }
-    if (!SCHEME_NULLP(vs)) {
+    if (!SAME_OBJ(vs, scheme_make_null())) {
       scheme_wrong_type("runtime-configure", "list of vectors of three values",
                         -1, 0, a);
     }