From 29205fa91ab40fde3ea8fe7e088107d3ff55b28b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 1 Sep 2011 12:41:26 -0600
Subject: [PATCH] fix changes to command-line handle that broke the Windows
 build

---
 src/racket/cmdline.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/racket/cmdline.inc b/src/racket/cmdline.inc
index 3372ca2af3..93385072c0 100644
--- a/src/racket/cmdline.inc
+++ b/src/racket/cmdline.inc
@@ -862,7 +862,7 @@ static int run_from_cmd_line(int argc, char *_argv[],
 	  --argc;
           if (!*(argv[0])) {
             /* #f => no collects path */
-            collects_path = scheme_false;
+            collects_path = scheme_make_false();
           } else
             collects_path = check_make_path(prog, real_switch, argv[0]);
           was_config_flag = 1;
@@ -1180,12 +1180,12 @@ static int run_from_cmd_line(int argc, char *_argv[],
   /* Setup path for "collects" collection directory: */
   if (!collects_path) {
     if (!_coldir[_coldir_offset])
-      collects_path = scheme_false;
+      collects_path = scheme_make_false();
     else
       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);
-  if (SCHEME_FALSEP(collects_path)) {
+  if (SAME_OBJ(collects_path, scheme_make_false())) {
     /* empty list of directories => don't set collection dirs
        and don't use collection links files */
     skip_coll_dirs = 1;