ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-09 20:59:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix: build: Promote local define-inline to a define-constant util.

Browse source 
* guix/build/utils.scm: Moved/renamed define-inline from grafts.scm to an
exported define-constant util.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Attila Lendvai 2021-10-03 14:43:00 +02:00 committed by Liliana Marie Prikler
parent 21175594a2
commit 54c365d645
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
2 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/build/graft.scm
View file

@ -44,10 +44,7 @@ (define-module (guix build graft)
;;;
;;; Code:
(define-syntax-rule (define-inline name val)
(define-syntax name (identifier-syntax val)))
(define-inline hash-length 32)
(define-constant hash-length 32)
(define nix-base32-char?
(cute char-set-contains?

12
guix/build/utils.scm
View file

@ -90,6 +90,8 @@ (define-module (guix build utils)
search-error-path
search-error-file
define-constant
every*
alist-cons-before
alist-cons-after
@ -129,6 +131,16 @@ (define-module (guix build utils)
locale-category->string))
;;;
;;; Syntax
;;;
;; Note that in its current form VAL doesn't get evaluated, just simply
;; inlined. TODO?
(define-syntax-rule (define-constant name val)
(define-syntax name (identifier-syntax val)))
;;;
;;; Guile 2.0 compatibility later.