From 4491b6a687cc0bb0a410f87f42b6165b5da79791 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 27 Feb 2014 14:56:10 -0700 Subject: [PATCH] Windows installer: fix recording of document-icon paths --- racket/collects/launcher/launcher.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/racket/collects/launcher/launcher.rkt b/racket/collects/launcher/launcher.rkt index 5311a930bc..0cfec14e07 100644 --- a/racket/collects/launcher/launcher.rkt +++ b/racket/collects/launcher/launcher.rkt @@ -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))