diff --git a/pkgs/racket-doc/scribblings/raco/exe-api.scrbl b/pkgs/racket-doc/scribblings/raco/exe-api.scrbl index a5a2ce7853..3c908dc7b9 100644 --- a/pkgs/racket-doc/scribblings/raco/exe-api.scrbl +++ b/pkgs/racket-doc/scribblings/raco/exe-api.scrbl @@ -187,11 +187,11 @@ currently supported keys are as follows: @filepath{.icns}) to use for the executable's desktop icon.} @item{@racket['ico] (Windows) : An icon file path (suffix - @filepath{.ico}) to use for the executable's desktop icon; - the executable will have 16x16, 32x32, and 48x48 icons at - 4-bit, 8-bit, and 32-bit (RGBA) depths; the icons are copied - and generated from any 16x16, 32x32, and 48x48 icons in the - @filepath{.ico} file.} + @filepath{.ico}) to use for the executable's desktop icon. + + @history[#:changed "6.2.900.10" @elem{All icons in the + executable are replaced with icons from the file, + instead of setting only certain sizes and depths.}]} @item{@racket['creator] (Mac OS X) : Provides a 4-character string to use as the application signature.} diff --git a/racket/collects/compiler/embed.rkt b/racket/collects/compiler/embed.rkt index 84c787032c..6f39e74d70 100644 --- a/racket/collects/compiler/embed.rkt +++ b/racket/collects/compiler/embed.rkt @@ -1743,7 +1743,7 @@ (let ([m (and (eq? 'windows (system-type)) (assq 'ico aux))]) (when m - (replace-icos (read-icos (cdr m)) dest-exe))) + (replace-all-icos (read-icos (cdr m)) dest-exe))) (let ([m (and (eq? 'windows (system-type)) (assq 'subsystem aux))]) (when m