Do not link to the same object more than once

2025-05-23 20:15:05 +02:00 · 2015-05-15 14:20:26 -04:00 · 2015-05-15 14:20:26 -04:00 · 31637d4439
commit 31637d4439
parent 97b8e81682
1 changed files with 7 additions and 5 deletions
--- a/cyclone.scm
+++ b/cyclone.scm
@ -249,11 +249,13 @@
        (program?
          (let ((objs-str 
                  (if (tagged-list? 'import (car in-prog))
-                    (apply string-append
-                           (map
-                             (lambda (str)
-                               (string-append " " str " "))
-                           (lib:imports->objs (cdar in-prog))))
+                    (apply 
+                      string-append
+                      (delete-duplicates
+                        (map
+                          (lambda (str)
+                            (string-append " " str " "))
+                        (lib:imports->objs (cdar in-prog)))))
                    ""))) 
            (if (equal? 0 
                  (system