.

original commit: 25ff63cbb239f2a9a41bc0213c31a53b45f3cb4b
2002-02-05 23:38:38 +00:00 · 2002-02-05 23:38:38 +00:00 · 14bfcc5291
commit 14bfcc5291
parent 3d02f1a613
1 changed files with 5 additions and 1 deletions
--- a/collects/mzlib/process.ss
+++ b/collects/mzlib/process.ss
@ -19,7 +19,11 @@
 			  (let ([cmd (build-path d "cmd.exe")])
 			    (if (file-exists? cmd)
 				cmd
-				(build-path d "command.com"))))])
+				(let ([cmd (build-path d "command.com")])
+				  (if (file-exists? cmd)
+				      cmd
+				      ;; One last try: up a dir
+				      (build-path d '.. "command.com"))))))])
 		   (list cmd
 			 'exact
 			 (format "~a /c ~a" cmd argstr))))