hydra-eval-guile-jobs: Adjust to <license> objects.

Dependencies

• [2] QMW24O5S Add support for Guile & Guix.
• [3] Y6H7Y3OT Capture the path to `guile', when available.

Change contents

• replacement in src/script/hydra-eval-guile-jobs.in at line 14
  [2.3183]→[2.3183:3239](∅→∅)
  − ;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>
  [2.3183]

  [2.3239]
  + ;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
• replacement in src/script/hydra-eval-guile-jobs.in at line 100
  [2.6593]→[2.6593:6649](∅→∅)
  − ,@(opt-attr 'license 'license)
  [2.6593]

  [2.6649]
  + (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)))

  + (_ ""))))