From a8407bdfb61ff75dc4bd4dc9018b07aaaadabf44 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sat, 16 Aug 2008 01:21:51 +0000
Subject: [PATCH] remove duplicate dependencies

svn: r11292
---
 collects/mzlib/cm.ss | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

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