From 71b24abeb2acff7935a731defdc3275fbec7fa17 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 17 Nov 2021 15:41:05 +0100 Subject: [PATCH] import: texlive: Remove leftover 'pk'. * guix/import/texlive.scm (files->directories): Remove leftover 'pk' call. --- guix/import/texlive.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/guix/import/texlive.scm b/guix/import/texlive.scm index d0307ae944..e22823e807 100644 --- a/guix/import/texlive.scm +++ b/guix/import/texlive.scm @@ -197,12 +197,11 @@ (define tlpdb (loop all current #false)))))))))))) (define (files->directories files) - (pk 'f->d - (map (cut string-join <> "/" 'suffix) - (delete-duplicates (map (lambda (file) - (drop-right (string-split file #\/) 1)) - files) - equal?)))) + (map (cut string-join <> "/" 'suffix) + (delete-duplicates (map (lambda (file) + (drop-right (string-split file #\/) 1)) + files) + equal?))) (define (tlpdb->package name) (and-let* ((data (assoc-ref (tlpdb) name))