diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-05-12 15:46:16 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-05-12 15:46:16 +0200 |
commit | c0cd1b3ea7753fe2826f7a336019000df9dea96f (patch) | |
tree | a7e376f68216dcd26eab06aea5ff529b483fea00 /guix/gnu-maintenance.scm | |
parent | 9b1ef2f3232e7af111ba05353008ebd2f8955f02 (diff) | |
download | guix-patches-c0cd1b3ea7753fe2826f7a336019000df9dea96f.tar guix-patches-c0cd1b3ea7753fe2826f7a336019000df9dea96f.tar.gz |
Move record utilities to (guix records).
* guix/utils.scm (define-record-type*): Move to...
* guix/records.scm: ... here. New file.
* guix/build-system.scm, guix/packages.scm: Use it.
* guix/gnu-maintenance.scm: Likewise.
(official-gnu-packages)[alist->record]: Remove.
* guix/scripts/substitute-binary.scm: Likewise.
(alist->record, object->fields): Remove.
* tests/utils.scm ("define-record-type*", "define-record-type* with
letrec* behavior", "define-record-type* & inherit",
"define-record-type* & inherit & letrec* behavior",
"define-record-type* & thunked", "define-record-type* & thunked &
default", "define-record-type* & thunked & inherited"): Move to...
* tests/records.scm: ... here. New file.
Diffstat (limited to 'guix/gnu-maintenance.scm')
-rw-r--r-- | guix/gnu-maintenance.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index e39094db72..b54cd84ecf 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -32,6 +32,7 @@ #:use-module (guix ftp-client) #:use-module (guix ui) #:use-module (guix utils) + #:use-module (guix records) #:use-module (guix packages) #:use-module ((guix download) #:select (download-to-store)) #:use-module (guix gnupg) @@ -150,12 +151,6 @@ (remove null-list? state) (match-field line)))) - (define (alist->record alist make keys) - ;; Apply MAKE, which should be a syntactic constructor, to the - ;; values associated with KEYS in ALIST. - (let ((args (map (cut assoc-ref alist <>) keys))) - (apply make args))) - (reverse (map (lambda (alist) (alist->record alist |