From 20a98a2f41bded9cf67712f10f34de19fd37639a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 15 Mar 2008 13:19:56 +0000
Subject: [PATCH] allow MzScheme to start up if the current directory does not
 exist

svn: r8979
---
 src/mzscheme/src/file.c | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/mzscheme/src/file.c b/src/mzscheme/src/file.c
index 0b1c0d7054..49fe04b35e 100644
--- a/src/mzscheme/src/file.c
+++ b/src/mzscheme/src/file.c
@@ -1051,14 +1051,20 @@ char *scheme_os_getcwd(char *buf, int buflen, int *actlen, int noexn)
     if (!r) {
       /* Something bad happened! */
       if (noexn) {
+        /* We need to invent some complete path. */
+#ifdef DOS_FILE_SYSTEM
+        r = "C:\\";
+#else
+        r = "/";
+#endif        
 	if (actlen)
-	  *actlen = 0;
+	  *actlen = strlen(r);
 
 	if (buf) {
-	  buf[0] = 0;
+          strcpy(buf, r);
 	  return buf;
 	} else {
-	  return ".";
+	  return r;
 	}
       }