allow multiple uses of an .icns filein .filetypes

svn: r10752

collects/drscheme/drscheme.filetypes

@@ -20,6 +20,8 @@
    (array "plt")))
  (("CFBundleTypeName"
    "Scheme Doc Source")
+  ("CFBundleTypeIconFile"
+   "doc")
   ("CFBundleTypeRole"
    "Viewer")
   ("CFBundleTypeOSTypes"

collects/launcher/launcher-unit.ss

@@ -3,6 +3,7 @@
 
 (require scheme/path
          scheme/file
+         scheme/list
 
          compiler/embed
          setup/dirs
@@ -582,7 +583,7 @@
                                     d))])
                          (list
                           (cons 'file-types d)
-                          (cons 'resource-files icon-files))))))))))
+                          (cons 'resource-files (remove-duplicates icon-files)))))))))))
        (let ([l (try 'file-types #".utiexports")])
          (if (null? l)
              l

collects/scribblings/mzc/launcher.scrbl

@@ -258,8 +258,8 @@ The recognized suffixes are as follows:
  @item{@filepath{.filetypes} @'rarr @scheme['file-types] as
        @scheme[read] content (a single S-expression), and
        @scheme['resource-files] as a list constructed by finding
-       @scheme["CFBundleTypeIconFile"] entries in
-       @scheme['file-types]; for use under Mac OS X}
+       @scheme["CFBundleTypeIconFile"] entries in @scheme['file-types]
+       (and filtering duplicates); for use under Mac OS X}
 
  @item{@filepath{.utiexports} @'rarr @scheme['uti-exports] as
        @scheme[read] content (a single S-expression); for use under