From 42cf80815dbc17672463d490f3f6b4bef52e0fc2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 2 Oct 2015 09:05:34 -0600 Subject: [PATCH] net/git-checkout: fix checkout of symlinks --- racket/collects/net/git-checkout.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/net/git-checkout.rkt b/racket/collects/net/git-checkout.rkt index 34ac181816..d20db03a2a 100644 --- a/racket/collects/net/git-checkout.rkt +++ b/racket/collects/net/git-checkout.rkt @@ -684,8 +684,8 @@ [(#"40000" #"040000") (extract-tree id obj-ids tmp (build-path dest-dir fn))] [(#"120000") - (make-file-or-directory-link (build-path dest-dir fn) - (object->bytes tmp (this-object-location)))] + (make-file-or-directory-link (bytes->path (object->bytes tmp (this-object-location))) + (build-path dest-dir fn))] [(#"160000") ;; submodule; just make a directory placeholder (make-directory* (build-path dest-dir fn))]