ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix: records: Add wrap-element procedure.

Browse source 
* guix/records.scm (wrap-element): Add procedure.

Change-Id: If121c5d856e815776830282a0701a73e5ae2a7e7
This commit is contained in:
Herman Rimm 2024-09-19 21:28:40 +02:00 committed by Ryan Schanzenbacher
parent d0767b5a23
commit 38ca46212c
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/records.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012-2024 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012-2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2024 Lilah Tascheter <lilah@lunabee.space>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -31,6 +32,8 @@ (define-module (guix records)
alist->record alist->record
object->fields object->fields
recutils->alist recutils->alist
wrap-element
match-record match-record
match-record-lambda)) match-record-lambda))
@ -606,6 +609,10 @@ (define (recutils->alist port)
(else (else
(error "unmatched line" line)))))))) (error "unmatched line" line))))))))
(define (wrap-element x)
"Sanitize a record field value X to a list."
(if (list? x) x (list x)))
;;; ;;;
;;; Pattern matching. ;;; Pattern matching.