~ chicken-core (chicken-5) 92c661162f31370cc534609cd2829a5aa4aaa6bd
commit 92c661162f31370cc534609cd2829a5aa4aaa6bd
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jan 13 12:28:49 2017 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jan 13 12:28:49 2017 +0100
csc: collect linked files before creating argument listm
diff --git a/csc.scm b/csc.scm
index 4175805f..512ea43b 100644
--- a/csc.scm
+++ b/csc.scm
@@ -915,10 +915,10 @@ EOF
;;; Link object files and libraries:
(define (run-linking)
+ (set! object-files (collect-linked-objects object-files))
(let* ((files (map quotewrap object-files))
(target (quotewrap target-filename))
(targetdir #f))
- (set! object-files (collect-linked-objects object-files))
(command
(string-intersperse
(cons* (cond (cpp-mode c++-linker)
Trap