(new Tree 'archives)
-(define core:core (read-file (main-args 0)))
+(define core:core (read-file "/proc/self/exe"))
(context 'archive)
(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)))))