mes: Bugfix for search-path. Fixes running MesCC on Guile.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 27 May 2019 19:51:37 +0000 (21:51 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 27 May 2019 19:51:37 +0000 (21:51 +0200)
* module/mescc/mescc.scm (arch-find): Also look in cwd.
* mes/module/mes/posix.mes (search-path): Do not look in cwd.

mes/module/mes/posix.mes
module/mescc/mescc.scm

index 777854067f08b187e3309249a0b8c0917a8090e7..fc1b157494cd9151718b2c86643b428bf4bed950 100644 (file)
   *unspecified*)
 
 (define (search-path path file-name)
-  (if (access? file-name R_OK) file-name
-      (let loop ((path path))
-        (and (pair? path)
-             (let ((f (string-append (car path) "/" file-name)))
-               (if (access? f R_OK) f
-                   (loop (cdr path))))))))
+  (let loop ((path path))
+    (and (pair? path)
+         (let ((f (string-append (car path) "/" file-name)))
+           (if (access? f R_OK) f
+               (loop (cdr path)))))))
 
 (define (execlp file-name args)
   (let ((executable (if (string-index file-name #\/) file-name
index 8a86d9b96d1cafbc412a195661b6d54c8f580f4c..45f9c9137d59582592be800fc3014a70c25d19f1 100644 (file)
                 ((equal? machine "32") "x86-mes")
                 ((equal? machine "64") "x86_64-mes")
                 (else "x86-mes")))
-         (path (cons* srcdir-lib
+         (path (cons* "."
+                      srcdir-lib
                       (prefix-file options "lib")
                       (filter-map (multi-opt 'library-dir) options)))
          (arch-file-name (string-append arch "/" file-name))