From 47f36952d6f76d28b45b12c734f8e30297bccf3a Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Mon, 14 Sep 2015 16:45:40 -0500 Subject: [PATCH] removed duplicate case --- racket/collects/net/git-checkout.rkt | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/racket/collects/net/git-checkout.rkt b/racket/collects/net/git-checkout.rkt index fbaebec499..6bf3ba65d6 100644 --- a/racket/collects/net/git-checkout.rkt +++ b/racket/collects/net/git-checkout.rkt @@ -671,13 +671,16 @@ (when id (define (this-object-location) (object-location (hash-ref obj-ids id))) - (case (datum-intern-literal mode) - [(#"100644" #"644" - #"100755" #"755") + (define (copy-this-object perms) (copy-object tmp (this-object-location) - mode - (build-path dest-dir fn))] + perms + (build-path dest-dir fn))) + (case (datum-intern-literal mode) + [(#"100755") #"755" + (copy-this-object #o755)] + [(#"100644" #"644") + (copy-this-object #o644)] [(#"40000" #"040000") (extract-tree id obj-ids tmp (build-path dest-dir fn))] [(#"120000") @@ -939,8 +942,8 @@ [else (call-with-input-file* (build-path (tmp-info-dir tmp) location) proc)])) -;; copy-object : tmp-info location bytes path -> void -(define (copy-object tmp location mode dest-file) +;; copy-object : tmp-info location integer path -> void +(define (copy-object tmp location perms dest-file) (cond [(pair? location) (define bstr (object->bytes tmp location)) @@ -952,10 +955,6 @@ (copy-file (build-path (tmp-info-dir tmp) location) dest-file #t)]) - (define perms - (case mode - [(#"755" #"100755") #o755] - [(#"644" #"100644") #o644])) (file-or-directory-permissions dest-file perms)) ;; object->bytes : tmp-info location -> bytes