Windows installer: fix recording of document-icon paths

This commit is contained in:
Matthew Flatt 2014-02-27 14:56:10 -07:00
parent 981701d237
commit 4491b6a687

View File

@ -470,9 +470,7 @@
(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)))
(path->bytes p))
(if (path? e)
(path->bytes e)
e))