aboutsummaryrefslogtreecommitdiff
path: root/tests/gremlin.scm
diff options
context:
space:
mode:
authorMarius Bakke <mbakke@fastmail.com>2018-08-25 16:44:07 +0200
committerMarius Bakke <mbakke@fastmail.com>2018-08-25 16:44:07 +0200
commit839167ff9d74fc490b32f6a197591964f73b65e5 (patch)
treed193bfad7c9ef5597c5cd7d2ea25fd007d01f88a /tests/gremlin.scm
parent27c1df05a866b639a61e16d48b3f2da8fa5eb767 (diff)
parent030c912616c8ee1595218e304460041bcb4f1ceb (diff)
downloadguix-839167ff9d74fc490b32f6a197591964f73b65e5.tar
guix-839167ff9d74fc490b32f6a197591964f73b65e5.tar.gz
Merge branch 'staging' into core-updates
Diffstat (limited to 'tests/gremlin.scm')
-rw-r--r--tests/gremlin.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/gremlin.scm b/tests/gremlin.scm
index 1b47d5c384..77a5dc1998 100644
--- a/tests/gremlin.scm
+++ b/tests/gremlin.scm
@@ -29,8 +29,8 @@
#:use-module (ice-9 match))
(define %guile-executable
- (match (command-line)
- ((program . _)
+ (match (false-if-exception (readlink "/proc/self/exe"))
+ ((? string? program)
(and (file-exists? program) (elf-file? program)
program))
(_