changed how to access the exe origin

diff --git a/incore.lsp b/incore.lsp
index fb099516a7c83a9f2ea632c0539eab8862e86831..5d0bef576c71e0932f4d69c6c244bea58b24b879 100644 (file)
--- a/incore.lsp
+++ b/incore.lsp
@@ -21,7 +21,7 @@
 
 (new Tree 'archives)
 
 
 (new Tree 'archives)
 

-(define core:core (read-file (main-args 0)))
+(define core:core (read-file "/proc/self/exe"))

 
 (context 'archive)
 
 
 (context 'archive)
 


@@ -75,7 +75,7 @@
    (letex (READ-FILE read-file)
      (fn ()
        (if (archives (args 0)) (archive:get $it (args 0))
    (letex (READ-FILE read-file)
      (fn ()
        (if (archives (args 0)) (archive:get $it (args 0))

-              (READ-FILE (args 0)))))
+         (READ-FILE (args 0)))))

    'file?
    (letex (FILE? file?)
      (fn () (if (archives (args 0)) true (FILE? (args 0)))))
    'file?
    (letex (FILE? file?)
      (fn () (if (archives (args 0)) true (FILE? (args 0)))))