diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2018-08-22 18:14:04 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2018-08-22 18:14:04 +0200 |
| commit | 233df51ebc162bf95dfadf914914cbfbc6984651 (patch) | |
| tree | 06fa8d78bbe97619450a88d8a38d01dc3775655b /tests | |
| parent | 43cec3fb1ea54dedee8a5f613c833958c76892f4 (diff) | |
| parent | 180a8986e57a6cfb65a8cddabcb430f23801832b (diff) | |
| download | patches-233df51ebc162bf95dfadf914914cbfbc6984651.tar patches-233df51ebc162bf95dfadf914914cbfbc6984651.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gremlin.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/gremlin.scm b/tests/gremlin.scm index 2885554967..f1089e7da6 100644 --- a/tests/gremlin.scm +++ b/tests/gremlin.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2018 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -27,8 +27,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)) (_ |