diff options
| author | Attila Lendvai <attila@lendvai.name> | 2021-10-03 14:43:00 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2022-09-02 17:04:46 +0200 |
| commit | 54c365d6457fd19479f3cea797196240a73299bf (patch) | |
| tree | 553c4f68cae1220a11218f0d03237644341c4a45 | |
| parent | 21175594a212476da3187d37aea15243cb601097 (diff) | |
| download | guix-54c365d6457fd19479f3cea797196240a73299bf.tar.gz guix-54c365d6457fd19479f3cea797196240a73299bf.zip | |
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>
| -rw-r--r-- | guix/build/graft.scm | 5 | ||||
| -rw-r--r-- | guix/build/utils.scm | 12 |
2 files changed, 13 insertions, 4 deletions
diff --git a/guix/build/graft.scm b/guix/build/graft.scm index f04c35fa74..daac958d4f 100644 --- a/guix/build/graft.scm +++ b/guix/build/graft.scm @@ -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? diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 5ea3b98353..3570de81e9 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -90,6 +90,8 @@ search-error-path search-error-file + define-constant + every* alist-cons-before alist-cons-after @@ -131,6 +133,16 @@ ;;; +;;; 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. ;;; |