From 847374b07fb0742fdbb53a1eb9cb0e58a92d5264 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sat, 8 Jan 2022 13:07:59 +1100 Subject: [PATCH] changed how to access the exe origin --- incore.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/incore.lsp b/incore.lsp index fb09951..5d0bef5 100644 --- a/incore.lsp +++ b/incore.lsp @@ -21,7 +21,7 @@ (new Tree 'archives) -(define core:core (read-file (main-args 0))) +(define core:core (read-file "/proc/self/exe")) (context 'archive) @@ -75,7 +75,7 @@ (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))))) -- 2.39.2