mes: Bugfix for search-path. Fixes running MesCC on Guile.
[mes.git] / mes / module / mes / posix.mes
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