projects
/
rrq
/
newlisp
/
packnl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
d40252c
)
changed how to access the exe origin
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Sat, 8 Jan 2022 02:07:59 +0000
(13:07 +1100)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Sat, 8 Jan 2022 02:07:59 +0000
(13:07 +1100)
incore.lsp
patch
|
blob
|
history
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)
-(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)))))