me
/
guix
Archived
1
0
Fork 0
Code

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

* 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>
master
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 @@
;;;
;;; 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 @@
search-error-path
search-error-file
define-constant
every*
alist-cons-before
alist-cons-after
@ -129,6 +131,16 @@
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.