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

allow MzScheme to start up if the current directory does not exist

Browse Source 
svn: r8979
This commit is contained in:
Matthew Flatt 2008-03-15 13:19:56 +00:00
parent 651419aabc
commit 20a98a2f41
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mzscheme/src/file.c
View File

@ -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;
}
}