original commit: 134e46b397347caf1fd13ba84176454ef5233800
This commit is contained in:
Matthew Flatt 2002-10-14 14:22:22 +00:00
parent 1e621132aa
commit 7de900b38b

View File

@ -137,5 +137,5 @@
(define (system str)
(if (eq? (system-type) 'macos)
(subprocess #f #f #f "by id" str)
(subprocess #f #f #f "by-id" str)
(apply system* (shell-path/args "system" str)))))