diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2018-08-25 16:44:07 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2018-08-25 16:44:07 +0200 |
| commit | 839167ff9d74fc490b32f6a197591964f73b65e5 (patch) | |
| tree | d193bfad7c9ef5597c5cd7d2ea25fd007d01f88a /tests/gremlin.scm | |
| parent | 27c1df05a866b639a61e16d48b3f2da8fa5eb767 (diff) | |
| parent | 030c912616c8ee1595218e304460041bcb4f1ceb (diff) | |
| download | patches-839167ff9d74fc490b32f6a197591964f73b65e5.tar patches-839167ff9d74fc490b32f6a197591964f73b65e5.tar.gz | |
Merge branch 'staging' into core-updates
Diffstat (limited to 'tests/gremlin.scm')
| -rw-r--r-- | tests/gremlin.scm | 4 |
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)) (_ |