Changeset 15274 in project for chicken/trunk


Ignore:
Timestamp:
07/29/09 10:22:55 (10 years ago)
Author:
felix winkelmann
Message:

handle crappy shells when using compile-file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/utils.scm

    r15262 r15274  
    131131    (lambda (filename #!key (options '()) output-file)
    132132      (let ((cscpath (or (file-exists? (make-pathname path csc)) "csc"))
    133             (tmpfile (and (not output-file) (create-temporary-file "so"))))
     133            (tmpfile (and (not output-file) (create-temporary-file "so")))
     134            (crapshell (cond-expand ((or mingw32 msvc) #t) (else #f))))
    134135        (print "; compiling " filename " ...")
    135136        (system*
    136          "~a -s ~a ~a -o ~a"
     137         "~a~a -s ~a ~a -o ~a~a"
     138         (if crapshell "\"" "")
    137139         (qs cscpath)
    138140         (string-intersperse (append (compile-file-options) options) " ")
    139141         (qs filename)
    140          (qs (or output-file tmpfile)))
     142         (qs (or output-file tmpfile))
     143         (if crapshell "\"" ""))
    141144        (unless output-file
    142145          (on-exit (cut delete-file* tmpfile)))
Note: See TracChangeset for help on using the changeset viewer.