original commit: 3acd2443ff8b5398164fa5fd118e84d971233b31
This commit is contained in:
Matthew Flatt 2001-04-07 02:39:30 +00:00
parent 501c2e2afe
commit e19566676b

View File

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