Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Do not link to the same object more than once

Browse source
This commit is contained in:
Justin Ethier 2015-05-15 14:20:26 -04:00
parent 97b8e81682
commit 31637d4439
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
cyclone.scm
View file

@ -249,11 +249,13 @@
(program? (program?
(let ((objs-str (let ((objs-str
(if (tagged-list? 'import (car in-prog)) (if (tagged-list? 'import (car in-prog))
(apply string-append (apply
string-append
(delete-duplicates
(map (map
(lambda (str) (lambda (str)
(string-append " " str " ")) (string-append " " str " "))
(lib:imports->objs (cdar in-prog)))) (lib:imports->objs (cdar in-prog)))))
""))) "")))
(if (equal? 0 (if (equal? 0
(system (system