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 /guix/build/utils.scm | |
| parent | 21175594a212476da3187d37aea15243cb601097 (diff) | |
| download | guix-54c365d6457fd19479f3cea797196240a73299bf.tar guix-54c365d6457fd19479f3cea797196240a73299bf.tar.gz | |
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>
Diffstat (limited to 'guix/build/utils.scm')
| -rw-r--r-- | guix/build/utils.scm | 12 |
1 files changed, 12 insertions, 0 deletions
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. ;;; |