svn: r11379
This commit is contained in:
Eli Barzilay 2008-08-22 11:33:15 +00:00
parent f5be074421
commit 59041963ca

View File

@ -6,7 +6,7 @@
(define plain-mz-is-cgc?
(delay (let* ([dir (find-console-bin-dir)]
[exe (cond [(eq? 'windows (system-type)) '("MzScheme.exe")]
[exe (cond [(eq? 'windows (system-type)) "MzScheme.exe"]
[(equal? #".dll" (system-type 'so-suffix))
;; in cygwin so-suffix is ".dll"
"mzscheme.exe"]