diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-11-17 15:41:05 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-11-17 15:44:48 +0100 |
| commit | 71b24abeb2acff7935a731defdc3275fbec7fa17 (patch) | |
| tree | 15973287e2bc6788384b95dae3fc56e8e3c7a18b | |
| parent | 21357224bc1f450931fb3a64fe6d06f9d1137b67 (diff) | |
| download | guix-71b24abeb2acff7935a731defdc3275fbec7fa17.tar.gz | |
import: texlive: Remove leftover 'pk'.
* guix/import/texlive.scm (files->directories): Remove leftover 'pk' call.
| -rw-r--r-- | guix/import/texlive.scm | 11 |
1 files 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 @@ (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)) |