gnu: emacs-el-search: Update to 1.12.6.1-2.07bed84.

[jackhill/guix/guix.git] / tests / gremlin.scm

diff --git a/tests/gremlin.scm b/tests/gremlin.scm
index 1b47d5c..b0bb7a8 100644 (file)
--- 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))
     (_
@@ -52,7 +52,7 @@
     (or (not dyninfo)                             ;static executable
         (lset<= string=?
                 (list (string-append "libguile-" (effective-version))
-                      "libgc" "libunistring" "libffi")
+                      "libc")
                 (map (lambda (lib)
                        (string-take lib (string-contains lib ".so")))
                      (elf-dynamic-info-needed dyninfo))))))
@@ -79,7 +79,7 @@
          (lambda (port)
            (display "int main () { puts(\"hello\"); }" port)))
        (invoke c-compiler "t.c"
-               "-Wl,-rpath=/foo" "-Wl,-rpath=/bar")
+               "-Wl,--enable-new-dtags" "-Wl,-rpath=/foo" "-Wl,-rpath=/bar")
        (let* ((dyninfo (elf-dynamic-info
                         (parse-elf (call-with-input-file "a.out"
                                      get-bytevector-all))))