diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-10-01 16:49:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-10-10 11:16:06 +0200 |
| commit | 79b390a207adc70a1169c80e52c590d8b358f488 (patch) | |
| tree | a1d401cdcc307d0f204db7d02382266feeabda91 /tests/packages.scm | |
| parent | 3c54b28ea364d24533fd10ed5b5d797f95df7bc3 (diff) | |
| download | guix-79b390a207adc70a1169c80e52c590d8b358f488.tar guix-79b390a207adc70a1169c80e52c590d8b358f488.tar.gz | |
licenses: Let 'license?' expand to #t in trivial cases.
With this change, we have:
> ,expand (license? gpl3+)
$2 = #t
> ,expand (license? something-else)
$3 = (let ((obj something-else))
(and ((@@ (srfi srfi-9) struct?) obj)
((@@ (srfi srfi-9) eq?)
((@@ (srfi srfi-9) struct-vtable) obj)
(@@ (guix licenses) <license>))))
* guix/licenses.scm (define-license-predicate)
(begin-license-definitions): New macros
<top level>: Wrap definitions in 'begin-license-definitions'.
Diffstat (limited to 'tests/packages.scm')
0 files changed, 0 insertions, 0 deletions