Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 13:37:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Supporting tar on bytevectors.

Browse source
This commit is contained in:
Alex Shinn 2014-04-01 18:43:24 +09:00
parent 298e47e932
commit 71aeb419fb
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/tar.scm
View file

@ -73,10 +73,12 @@
;; fundamental iterator ;; fundamental iterator
(define (tar-fold src kons knil) (define (tar-fold src kons knil)
(let ((in (if (string? src) (open-binary-input-file src) src))) (let ((in (cond ((string? src) (open-binary-input-file src))
((bytevector? src) (open-input-bytevector src))
(else src))))
(let lp ((acc knil)) (let lp ((acc knil))
(cond (cond
((eof-object? (peek-char in)) ((eof-object? (peek-u8 in))
(close-input-port in) (close-input-port in)
acc) acc)
(else (else