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

use find-console-bin-dir instead of find-system-path to find the bin dir

Browse Source
This commit is contained in:
Robby Findler 2013-11-10 21:21:28 -06:00
parent 320e821a51
commit 09c283f063
1 changed files with 3 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkgs/drracket-pkgs/drracket/drracket/private/frame.rkt
View File

@ -23,7 +23,8 @@
(require string-constants (require string-constants
racket/system racket/system
racket/gui/base racket/gui/base
racket/class) racket/class
setup/dirs)
(provide add-menu-macosx-path-item) (provide add-menu-macosx-path-item)
@ -32,23 +33,7 @@
(define (add-menu-macosx-path-item menu) (define (add-menu-macosx-path-item menu)
(when (equal? (system-type) 'macosx) (when (equal? (system-type) 'macosx)
(define binary-dir (find-system-path 'exec-file)) (define bin-dir (find-console-bin-dir))
(when (relative-path? binary-dir)
(set! binary-dir
(simplify-path (build-path (find-system-path 'orig-dir) binary-dir))))
(define-values (base name dir?) (split-path binary-dir))
(define bin-dir
(cond
[(equal? (path->string name) "DrRacket")
(let loop ([i 3] [pth base])
(cond
[(zero? i) (simplify-path (build-path pth "bin"))]
[else
(define-values (base name dir?) (split-path pth))
(loop (- i 1) base)]))]
[(equal? (path->string name) "drracket")
base]
[else #f]))
(when bin-dir (when bin-dir
(when (file-exists? authopen) (when (file-exists? authopen)
(when (directory-exists? paths.d) (when (directory-exists? paths.d)