gexp: Allow gexp inputs when creating vectors using the read syntax.

* guix/gexp.scm (gexp) [collect-escapes, substitute-references]: Support vectors
created using the read syntax.
* tests/gexp.scm ("one input package, vector"): New test.

Merges: #10121

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/gexp.scm b/tests/gexp.scm
index fcc269d75a7..2715a46ae5f 100644
--- a/tests/gexp.scm
+++ b/tests/gexp.scm
@@ -194,6 +194,16 @@
                                  (package-derivation %store coreutils)))
                  (gexp->sexp* exp)))))
 
+(test-assert "one input package, vector"
+  (let ((exp (gexp #((ungexp coreutils)))))
+    (and (gexp? exp)
+         (match (gexp-inputs exp)
+           ((input)
+            (eq? (gexp-input-thing input) coreutils)))
+         (equal? (vector (derivation->output-path
+                          (package-derivation %store coreutils)))
+                 (gexp->sexp* exp)))))
+
 (test-assert "one input origin"
   (let ((exp (gexp (display (ungexp (package-source coreutils))))))
     (and (gexp? exp)