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

launcher: fix "extreg.rktd" in user's space

Browse Source 
Closes PR 14176
This commit is contained in:
Matthew Flatt 2013-11-19 07:46:30 -07:00
parent 632ce4e30a
commit 408031a01d
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
racket/collects/launcher/launcher.rkt
View File

@ -460,18 +460,20 @@
"extreg.rktd" "extreg.rktd"
(path-element->string (path-element->string
(file-name-from-path dest)) (file-name-from-path dest))
(if (eq? (cdr im) 'main) ;; make icon paths relative, if possible:
;; make icon paths relative, if possible: (for/list ([l (in-list (cdr m))])
(for/list ([l (in-list (cdr m))]) (for/list ([e (in-list l)]
(for/list ([e (in-list l)] [i (in-naturals)])
[i (in-naturals)]) (if (= i 3)
(if (= i 3) (if (eq? (cdr im) 'main)
(let ([p (find-relative-path (find-lib-dir) e)]) (let ([p (find-relative-path (find-lib-dir) e)])
(if (member 'up (explode-path p)) (if (member 'up (explode-path p))
(path->bytes e) (path->bytes e)
(path->bytes p))) (path->bytes p)))
e))) (if (path? e)
(cdr m))))) (path->bytes e)
e))
e))))))
;; record Windows start-menu requests, if any ;; record Windows start-menu requests, if any
(let ([m (assoc 'start-menu aux)]) (let ([m (assoc 'start-menu aux)])
(when (and m (cdr m)) (when (and m (cdr m))