From 1e87da58a160d75ba3f5356809a715c04ae31697 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 16 Mar 2015 22:31:14 +0100 Subject: gexp: Rename to . * guix/gexp.scm (): Rename to... (): ... this. Adjust constructor/accessor names and users accordingly. --- guix/gexp.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'guix/gexp.scm') diff --git a/guix/gexp.scm b/guix/gexp.scm index 1e26342101..67329b74df 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -81,10 +81,10 @@ ;; Reference to one of the derivation's outputs, for gexps used in ;; derivations. -(define-record-type - (output-ref name) - output-ref? - (name output-ref-name)) +(define-record-type + (gexp-output name) + gexp-output? + (name gexp-output-name)) (define raw-derivation (store-lift derivation)) @@ -310,7 +310,7 @@ references." "Return the outputs referred to by EXP as a list of strings." (define (add-reference-output ref result) (match ref - (($ name) + (($ name) (cons name result)) ((? gexp? exp) (append (gexp-outputs exp) result)) @@ -340,7 +340,7 @@ and in the current monad setting (system type, etc.)" (((? origin? o) (? string? output)) (mlet %store-monad ((drv (origin->derivation o))) (return (derivation->output-path drv output)))) - (($ output) + (($ output) ;; Output file names are not known in advance but the daemon defines ;; an environment variable for each of them at build time, so use ;; that trick. @@ -441,9 +441,9 @@ package/derivation references." ungexp-native ungexp-native-splicing output) ((ungexp output) - #'(output-ref "out")) + #'(gexp-output "out")) ((ungexp output name) - #'(output-ref name)) + #'(gexp-output name)) ((ungexp thing) #'thing) ((ungexp drv-or-pkg out) -- cgit v1.2.3