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) | |
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 1beeb67c212..0487f2a96d1 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm | |||
| @@ -1413,7 +1413,7 @@ | |||
| 1413 | 1413 | ||
| 1414 | (test-assert "printer" | 1414 | (test-assert "printer" |
| 1415 | (string-match "^#<gexp \\(string-append .*#<package coreutils.*\ | 1415 | (string-match "^#<gexp \\(string-append .*#<package coreutils.*\ |
| 1416 | \"/bin/uname\"\\) [[:xdigit:]]+>$" | 1416 | \"/bin/uname\"\\) [[:graph:]]+tests/gexp\\.scm:[0-9]+:[0-9]+ [[:xdigit:]]+>$" |
| 1417 | (with-output-to-string | 1417 | (with-output-to-string |
| 1418 | (lambda () | 1418 | (lambda () |
| 1419 | (write | 1419 | (write |