From 45b635f7072b5cff884138978bb16a0559a8225a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 22 Sep 2015 09:00:55 -0500 Subject: [PATCH] don't set permissions on windows, for now (at some point hopefully we'll figure out what's the right behavior here) This is related to pull request #1060 --- racket/collects/net/git-checkout.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/racket/collects/net/git-checkout.rkt b/racket/collects/net/git-checkout.rkt index 1e1c8a29d8..34ac181816 100644 --- a/racket/collects/net/git-checkout.rkt +++ b/racket/collects/net/git-checkout.rkt @@ -955,9 +955,8 @@ (copy-file (build-path (tmp-info-dir tmp) location) dest-file #t)]) - (if (eq? 'windows (system-type 'os)) - (file-or-directory-permissions dest-file #o755) - (file-or-directory-permissions dest-file perms))) + (unless (equal? 'windows (system-type 'os)) + (file-or-directory-permissions dest-file perms))) ;; object->bytes : tmp-info location -> bytes (define (object->bytes tmp location)