(constant
'load
- (letex (LOAD load)
+ (letex ((LOAD load) (CTX '(or (and (1 (args)) (args 1)) MAIN)))
(fn () (if (archives (args 0))
- (eval-string (archive:get $it (args 0)) MAIN)
- (LOAD (args 0)))))
+ (eval-string (archive:get $it (args 0)) CTX)
+ (LOAD (args 0) CTX))))
'read-file
(letex (READ-FILE read-file)
(fn ()