From ce843095f49754bb15917fed51d01c8b90ef31b5 Mon Sep 17 00:00:00 2001 From: Nicolas Graves Date: Thu, 11 Sep 2025 16:52:58 +0200 Subject: [PATCH] build-system: node: Improve (default-guile-json) import style. Also place it just after (default-node). * guix/build-system/node.scm (default-guile-json): Place it after (default-node) and use helper macro @*. Change-Id: Idc21c9627f414a011915033da0cab845529ddbff Signed-off-by: Jelle Licht --- guix/build-system/node.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/guix/build-system/node.scm b/guix/build-system/node.scm index afc7e0b0cf..abd29b2529 100644 --- a/guix/build-system/node.scm +++ b/guix/build-system/node.scm @@ -47,6 +47,10 @@ "Return the default Node package, resolved lazily." (@* (gnu packages node) node-lts)) +(define (default-guile-json) + "Return the default guile-json package, resolved lazily." + (@* (gnu packages guile) guile-json-4)) + (define* (lower name #:key source inputs native-inputs outputs system target (node (default-node)) @@ -78,12 +82,6 @@ (build node-build) (arguments (strip-keyword-arguments private-keywords arguments))))) -(define (default-guile-json) - "Return the default guile-json package." - ;; Lazily resolve the binding to avoid a circular dependency. - (let ((mod (resolve-interface '(gnu packages guile)))) - (module-ref mod 'guile-json-4))) - (define* (node-build name inputs #:key source