.

original commit: 7238f06a9482b75ca6714d59e1e58e3393baa5df
2004-10-16 16:26:12 +00:00 · 2004-10-16 16:26:12 +00:00 · 6cec0bd74d
commit 6cec0bd74d
parent b087b10700
1 changed files with 5 additions and 1 deletions
--- a/collects/tests/mzscheme/embed.ss
+++ b/collects/tests/mzscheme/embed.ss
@ -35,7 +35,11 @@
    (parameterize ([current-directory (find-system-path 'temp-dir)])
      (when (file-exists? "stdout")
 	(delete-file "stdout"))
-      (system* exe))
+      (system* (if (and mred? (eq? 'macosx (system-type)))
+		   (let-values ([(base name dir?) (split-path exe)])
+		     (build-path exe "Contents" "MacOS"
+				 (path-replace-suffix name #"")))
+		   exe)))
    (when plthome
      (putenv "PLTHOME" plthome))
    (when collects