From 050f708879f568b292ed74743cc8e3f993a0828c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 24 Nov 2015 09:49:09 -0700 Subject: [PATCH] setup/unixstyle-install: fix DESTDIR mode for ".desktop" fixup Closes #1143 --- racket/collects/setup/unixstyle-install.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/setup/unixstyle-install.rkt b/racket/collects/setup/unixstyle-install.rkt index 5a94021a42..b1230670c1 100644 --- a/racket/collects/setup/unixstyle-install.rkt +++ b/racket/collects/setup/unixstyle-install.rkt @@ -281,10 +281,10 @@ ;; Assume anything after a space is the argument spec: (let ([m (regexp-match #rx"Exec=([^ ]*)(.*)" l)]) (format "Exec=~a~a" - (fixup-path bindir (cadr m)) + (fixup-path (dir: 'bin) (cadr m)) (caddr m)))] [(regexp-match? #rx"^Icon=" l) - (format "Icon=~a" (fixup-path sharerktdir (substring l 5)))] + (format "Icon=~a" (fixup-path (dir: 'sharerkt) (substring l 5)))] [else l]))) (unless (equal? ls new-ls) (call-with-output-file (build-path appsdir d)