From d284d530f56dbc1f65c3e98e9c59d76e089b7d2d Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 13 May 2010 13:37:56 -0600 Subject: [PATCH] Using Elis scm-export --- collects/meta/drdr/plt-build.ss | 2 +- collects/meta/drdr/scm.ss | 9 +-------- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/collects/meta/drdr/plt-build.ss b/collects/meta/drdr/plt-build.ss index 0ed865525c..8a409de77b 100644 --- a/collects/meta/drdr/plt-build.ss +++ b/collects/meta/drdr/plt-build.ss @@ -43,7 +43,7 @@ (path->string co-dir))] (notify! "Checking out ~a@~a into ~a" repo rev to-dir) - (scm-checkout rev repo to-dir)))) + (scm-export-repo rev repo to-dir)))) ;; Make the build directory (make-directory* build-dir) ;; Run Configure, Make, Make Install diff --git a/collects/meta/drdr/scm.ss b/collects/meta/drdr/scm.ss index 8449f94407..09f4f099f9 100644 --- a/collects/meta/drdr/scm.ss +++ b/collects/meta/drdr/scm.ss @@ -186,12 +186,6 @@ (system* (find-executable-path "tar") "xf" "-" "--absolute-names")) (void)) -(define (scm-checkout rev repo dest) - (system* (git-path) "clone" (path->string* repo) (path->string* dest)) - (parameterize ([current-directory dest]) - (system* (git-path) "checkout" (push-data-end-commit (push-info rev)))) - (void)) - (define (scm-update repo) (parameterize ([current-directory repo]) (system* (git-path) "fetch" git-url-base)) @@ -211,5 +205,4 @@ [scm-update (path? . -> . void?)] [scm-revisions-after (exact-nonnegative-integer? . -> . (listof exact-nonnegative-integer?))] [scm-export-file (exact-nonnegative-integer? path-string? string? path-string? . -> . void?)] - [scm-export-repo (exact-nonnegative-integer? path-string? path-string? . -> . void?)] - [scm-checkout (exact-nonnegative-integer? path-string? path-string? . -> . void?)]) + [scm-export-repo (exact-nonnegative-integer? path-string? path-string? . -> . void?)])