shithub: femtolisp

Info  •  Files  •  Log  •  Branches

take boot file from the same dir *.out is at

--- a/flisp.c

+++ b/flisp.c

@@ -2347,9 +2347,17 @@

     cvalues_init();

 #ifdef PLAN9

-    char *s;

-    if ((s = strstr(argv0, ".out")) == nil || s[4] != 0)

-        setc(symbol("*install-dir*"), cvalue_static_cstring("/sys/lib/flisp"));

+    char *s, *e;

+    if ((s = strstr(argv0, ".out")) != nil && s[4] == 0){

+        if((e = strrchr(argv0, '/')) != nil)

+            *e = 0;

+        s = strdup(argv0);

+        if(e != nil)

+            *e = '/';

+    }else{

+        s = "/sys/lib/flisp";

+    }

+    setc(symbol("*install-dir*"), cvalue_static_cstring(s));

 #else

     char buf[1024];

     char *exename = get_exename(buf, sizeof(buf));