;;; Copyright (C) 2012  Ludovic Courtès <ludo@gnu.org>

;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>

                         ,@(opt-attr 'license 'license)

                         (license
                          ,(let loop ((license (assoc-ref result 'license)))
                             (match license
                               ((? struct?)
                                ;; XXX: hack to access <license> objects
                                (struct-ref license 0))
                               ((l ...)
                                (string-join (map loop l)))
                               (_ ""))))