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

cocoa: undo hack of "-64" suffix on app names

Browse Source 
Commit 60101618db seems to address the real problem.
This commit is contained in:
Matthew Flatt 2011-10-07 08:04:47 -06:00
parent 60101618db
commit add50ab436
2 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -175,14 +175,7 @@
creator creator
"CFBundleIdentifier" "CFBundleIdentifier"
(format "org.racket-lang.~a~a" (format "org.racket-lang.~a" (path->string name)))]
(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,11 +86,7 @@
(assoc-pair "CFBundleExecutable" (assoc-pair "CFBundleExecutable"
,app-name) ,app-name)
(assoc-pair "CFBundleIdentifier" (assoc-pair "CFBundleIdentifier"
,(format "org.racket-lang.~a~a" app-name ,(format "org.racket-lang.~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))