From 09c283f063d084de30fea66db5e617eddaaba5f3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 10 Nov 2013 21:21:28 -0600 Subject: [PATCH] use find-console-bin-dir instead of find-system-path to find the bin dir --- .../drracket/drracket/private/frame.rkt | 21 +++---------------- 1 file changed, 3 insertions(+), 18 deletions(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/frame.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/frame.rkt index f17d081df1..3a7279296f 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/frame.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/frame.rkt @@ -23,7 +23,8 @@ (require string-constants racket/system racket/gui/base - racket/class) + racket/class + setup/dirs) (provide add-menu-macosx-path-item) @@ -32,23 +33,7 @@ (define (add-menu-macosx-path-item menu) (when (equal? (system-type) 'macosx) - (define binary-dir (find-system-path 'exec-file)) - (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])) + (define bin-dir (find-console-bin-dir)) (when bin-dir (when (file-exists? authopen) (when (directory-exists? paths.d)