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

.

Browse Source 
original commit: 3acd2443ff8b5398164fa5fd118e84d971233b31
This commit is contained in:
Matthew Flatt 2001-04-07 02:39:30 +00:00
parent 501c2e2afe
commit e19566676b
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/process.ss
View File

@ -14,11 +14,13 @@
(define (shell-path/args) (define (shell-path/args)
(case (system-type) (case (system-type)
((unix) '("/bin/sh" "-c")) ((unix) '("/bin/sh" "-c"))
((windows) (let ([d (find-system-path 'sys-dir)]) ((windows) (list
(let ([cmd (build-path d "cmd.exe")]) (let ([d (find-system-path 'sys-dir)])
(if (file-exists? cmd) (let ([cmd (build-path d "cmd.exe")])
cmd (if (file-exists? cmd)
(build-path d "command.com"))))) cmd
(build-path d "command.com"))))
"/c"))
(else (error "don't know what shell to use for ~e." (system-type))))) (else (error "don't know what shell to use for ~e." (system-type)))))
(define (if-stream-out p) (define (if-stream-out p)