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

cocoa: distinguish CFBundleIdentifier for 64-bit vs. 32-bit apps

Browse Source 
This is another attempt at fixing PR 12135
This commit is contained in:
Matthew Flatt 2011-09-10 10:51:18 -06:00
parent 9d4fcd8e84
commit 28afc4490e
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/compiler/embed-unit.rkt
View File

@ -175,7 +175,14 @@
creator creator
"CFBundleIdentifier" "CFBundleIdentifier"
(format "org.racket-lang.~a" (path->string name)))] (format "org.racket-lang.~a~a"
(path->string name)
(if (fixnum? (expt 2 32))
;; Add a "-64" suffix for 64-bit, because Lion seems
;; to get confused by 32-bit and 64-bit apps with the same
;; id (see PR 12135)
"-64"
"")))]
[new-plist (if uti-exports [new-plist (if uti-exports
(plist-replace (plist-replace
new-plist new-plist

6
src/mac/osx_appl.rkt
View File

@ -86,7 +86,11 @@
(assoc-pair "CFBundleExecutable" (assoc-pair "CFBundleExecutable"
,app-name) ,app-name)
(assoc-pair "CFBundleIdentifier" (assoc-pair "CFBundleIdentifier"
,(format "org.racket-lang.~a" app-name)) ,(format "org.racket-lang.~a~a" app-name
(if (fixnum? (expt 2 32))
;; See comment on similar code in compiler/embed-unit:
"-64"
"")))
,@(if app? ,@(if app?
`((assoc-pair "CFBundleIconFile" `((assoc-pair "CFBundleIconFile"
,app-name)) ,app-name))