02/02: import: texlive: Remove leftover 'pk'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 71b24abeb2acff7935a731defdc3275fbec7fa17
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Nov 17 15:41:05 2021 +0100

    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 d0307ae..e22823e 100644
--- a/guix/import/texlive.scm
+++ b/guix/import/texlive.scm
@@ -197,12 +197,11 @@
                      (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))