1 files changed, 8 insertions, 0 deletions
diff --git a/txr.c b/txr.c
index 428a0ff0..197f6515 100644
--- a/txr.c
+++ b/txr.c
@@ -243,6 +243,14 @@ static val get_self_path(void)
     return nil;
   return string_utf8(self);
 }
+#elif HAVE_GETEXECNAME
+static val get_self_path(void)
+{
+  val execname = string_utf8(getexecname());
+  if (car(execname) == chr('/'))
+    return execname;
+  return format(nil, lit("~a/~a"), getcwd_wrap(), execname, nao);
+}
 #else
 static val get_self_path(void)
 {