original commit: 1042823755fdd4e61afcf3b04312c68a8ebb6842
This commit is contained in:
Matthew Flatt 2001-10-29 02:56:23 +00:00
parent d9f145e3e9
commit 06f9d4d900

View File

@ -13,7 +13,7 @@
(define (shell-path/args who argstr)
(case (system-type)
((unix) (append '("/bin/sh" "-c") argstr))
((unix) (append '("/bin/sh" "-c") (list argstr)))
((windows) (let ([cmd
(let ([d (find-system-path 'sys-dir)])
(let ([cmd (build-path d "cmd.exe")])