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

fixup for mzscheme' -> racket/base' conversion

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-01 10:49:07 -06:00
parent cccf17651d
commit b12cdecb9f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/mac/osx_appl.rkt
View File

@ -61,7 +61,7 @@
(call-with-output-file info-plist-path (call-with-output-file info-plist-path
(lambda (port) (lambda (port)
(write-plist info-plist port)) (write-plist info-plist port))
'truncate))) #:exists 'truncate)))
(define (create-app dest-path app-name icon-src-name pkg-info-string info-plist) (define (create-app dest-path app-name icon-src-name pkg-info-string info-plist)
(let* ([app-path (build-path dest-path (let* ([app-path (build-path dest-path
@ -73,7 +73,7 @@
(call-with-output-file pkg-info-path (call-with-output-file pkg-info-path
(lambda (port) (lambda (port)
(fprintf port pkg-info-string)) (fprintf port pkg-info-string))
'truncate)) #:exists 'truncate))
(let* ([contents-path (build-path app-path "Contents")]) (let* ([contents-path (build-path app-path "Contents")])
(write-info contents-path info-plist) (write-info contents-path info-plist)
(let* ([icns-src (build-path plthome "src" "mac" "icon" (path-replace-suffix icon-src-name #".icns"))] (let* ([icns-src (build-path plthome "src" "mac" "icon" (path-replace-suffix icon-src-name #".icns"))]