26/31: build-system/texlive: Allow specifying SVN references with a single component.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 8c3abb47f0a028aef632251295c581ec5090936e
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Fri Jan 1 14:10:15 2021 -0500

    build-system/texlive: Allow specifying SVN references with a single 
component.
    
    This is the case for macros (formats), for which the TeX Directory Structure
    specifies to be located at the root of the source tree directly.
    
    * guix/build-system/texlive.scm (texlive-ref): Make the ID parameter
    optional.  Update doc.
---
 guix/build-system/texlive.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/guix/build-system/texlive.scm b/guix/build-system/texlive.scm
index 8bbca0c..a854575 100644
--- a/guix/build-system/texlive.scm
+++ b/guix/build-system/texlive.scm
@@ -59,13 +59,17 @@ name for the checkout directory."
     (file-name (string-append name "-" version "-checkout"))
     (sha256 hash)))
 
-(define (texlive-ref component id)
+(define* (texlive-ref component #:optional id)
   "Return a <svn-reference> object for the package ID, which is part of the
-given Texlive COMPONENT."
+given Texlive COMPONENT.  If ID is not provided, COMPONENT is used as the top
+level package ID."
   (svn-reference
    (url (string-append "svn://www.tug.org/texlive/tags/"
                        %texlive-tag "/Master/texmf-dist/"
-                       "source/" component "/" id))
+                       "source/" component
+                       (if id
+                           (string-append "/" id)
+                           "")))
    (revision %texlive-revision)))
 
 (define %texlive-build-system-modules