typo
svn: r11379
This commit is contained in:
parent
f5be074421
commit
59041963ca
|
@ -6,7 +6,7 @@
|
||||||
|
|
||||||
(define plain-mz-is-cgc?
|
(define plain-mz-is-cgc?
|
||||||
(delay (let* ([dir (find-console-bin-dir)]
|
(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))
|
[(equal? #".dll" (system-type 'so-suffix))
|
||||||
;; in cygwin so-suffix is ".dll"
|
;; in cygwin so-suffix is ".dll"
|
||||||
"mzscheme.exe"]
|
"mzscheme.exe"]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user