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