Changeset 15274 in project
- Timestamp:
- 07/29/09 10:22:55 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/utils.scm
r15262 r15274 131 131 (lambda (filename #!key (options '()) output-file) 132 132 (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)))) 134 135 (print "; compiling " filename " ...") 135 136 (system* 136 "~a -s ~a ~a -o ~a" 137 "~a~a -s ~a ~a -o ~a~a" 138 (if crapshell "\"" "") 137 139 (qs cscpath) 138 140 (string-intersperse (append (compile-file-options) options) " ") 139 141 (qs filename) 140 (qs (or output-file tmpfile))) 142 (qs (or output-file tmpfile)) 143 (if crapshell "\"" "")) 141 144 (unless output-file 142 145 (on-exit (cut delete-file* tmpfile)))
Note: See TracChangeset
for help on using the changeset viewer.