suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove duplicate dependencies

Browse Source 
svn: r11292
This commit is contained in:
Eli Barzilay 2008-08-16 01:21:51 +00:00
parent 0dc50ad667
commit a8407bdfb6
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/cm.ss
View File

@ -1,8 +1,9 @@
(module cm scheme/base (module cm scheme/base
(require syntax/modcode (require syntax/modcode
syntax/modresolve syntax/modresolve
setup/main-collects setup/main-collects
scheme/file) scheme/file
scheme/list)
(provide make-compilation-manager-load/use-compiled-handler (provide make-compilation-manager-load/use-compiled-handler
managed-compile-zo managed-compile-zo
@ -83,9 +84,10 @@
(close-output-port out))))))) (close-output-port out)))))))
(define (write-deps code mode path external-deps) (define (write-deps code mode path external-deps)
(let ((dep-path (path-add-suffix (get-compilation-path mode path) #".dep")) (let ([dep-path (path-add-suffix (get-compilation-path mode path) #".dep")]
(deps (get-deps code path))) [deps (remove-duplicates (get-deps code path))]
(with-compile-output [external-deps (remove-duplicates external-deps)])
(with-compile-output
dep-path dep-path
(lambda (op) (lambda (op)
(write (cons (version) (write (cons (version)