The R Project SVN R

Rev

Rev 43904 | Rev 45070 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 43904 Rev 44177
Line 59... Line 59...
59 
    if(p) {
 59 
    if(p) {
60 
	res = p(path);
 60 
	res = p(path);
61 
    } else { /* Windows 2000 */
 61 
    } else { /* Windows 2000 */
62 
	if(path) {
 62 
	if(path) {
63 
	    GetCurrentDirectory(MAX_PATH, wd);
 63 
	    GetCurrentDirectory(MAX_PATH, wd);
- 
 
 64 
	    SetCurrentDirectory(path);
64 
	} else if (wd[0]) {
 65 
	} else if (wd[0]) {
65 
	    SetCurrentDirectory(wd);
 66 
	    SetCurrentDirectory(wd);
66 
	    wd[0] = '\0';
 67 
	    wd[0] = '\0';
67 
	}
 68 
	}
68 
    }
 69 
    }