diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-11-05 14:32:04 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-11-05 16:13:50 +0100 |
| commit | 18fc84bce86eedb85d44a8708a9a5ef7c1b23da5 (patch) | |
| tree | a197fec5851a732439e91476cdc1efef101ed42d /tests | |
| parent | 61d9c4458eef35a2a3fce94f113031d86b9f4d8d (diff) | |
| download | guix-18fc84bce86eedb85d44a8708a9a5ef7c1b23da5.tar guix-18fc84bce86eedb85d44a8708a9a5ef7c1b23da5.tar.gz | |
gexp: Store the source code location in <gexp>.
* guix/gexp.scm (<gexp>)[location]: New field.
(gexp-location): New procedure.
(write-gexp): Print the location of GEXP.
(gexp->derivation): Adjust call to 'make-gexp'.
(gexp): Likewise.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gexp.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm index 1beeb67c21..0487f2a96d 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -1413,7 +1413,7 @@ (test-assert "printer" (string-match "^#<gexp \\(string-append .*#<package coreutils.*\ - \"/bin/uname\"\\) [[:xdigit:]]+>$" + \"/bin/uname\"\\) [[:graph:]]+tests/gexp\\.scm:[0-9]+:[0-9]+ [[:xdigit:]]+>$" (with-output-to-string (lambda () (write |