(define (get PATH MEMBER)
(if (list? PATH) ((PATH 0) (PATH 1) core)
(directory? PATH) (read-file (format "%s/%s" PATH MEMBER))
(define (get PATH MEMBER)
(if (list? PATH) ((PATH 0) (PATH 1) core)
(directory? PATH) (read-file (format "%s/%s" PATH MEMBER))
- (ends-with PATH ".a") (get-stdin (format "%s p %s %s" AR PATH MEMBER))
- (tar-able PATH) (get-stdin (format "%s xOf %s %s" TAR PATH MEMBER))
+ (ends-with PATH ".a") (get-stdout (format "%s p %s %s" AR PATH MEMBER))
+ (tar-able PATH) (get-stdout (format "%s xOf %s %s" TAR PATH MEMBER))
))
;; Discover and load an in-core archive by means of a marker row of 40
;; "x", and then a series of pathname\nsize\nbytes[size] members.
))
;; Discover and load an in-core archive by means of a marker row of 40
;; "x", and then a series of pathname\nsize\nbytes[size] members.