Changeset 15274 in project

Timestamp:

07/29/09 10:22:55 (12 years ago)

Author:

felix winkelmann

Message:

handle crappy shells when using compile-file

File:

• chicken/trunk/utils.scm (modified) (1 diff)

chicken/trunk/utils.scm

@@ -131 +131 @@
     (lambda (filename #!key (options '()) output-file)
       (let ((cscpath (or (file-exists? (make-pathname path csc)) "csc"))
-            (tmpfile (and (not output-file) (create-temporary-file "so"))))
+            (tmpfile (and (not output-file) (create-temporary-file "so")))
+            (crapshell (cond-expand ((or mingw32 msvc) #t) (else #f))))
         (print "; compiling " filename " ...")
         (system* 
-         "~a -s ~a ~a -o ~a" 
+         "~a~a -s ~a ~a -o ~a~a" 
+         (if crapshell "\"" "")
          (qs cscpath)
          (string-intersperse (append (compile-file-options) options) " ")
          (qs filename)
-         (qs (or output-file tmpfile)))
+         (qs (or output-file tmpfile))
+         (if crapshell "\"" ""))
         (unless output-file 
           (on-exit (cut delete-file* tmpfile)))