lassik
/
pandoc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Write conventional end-of-archive records

This commit is contained in:
Lassi Kortela 2021-10-03 17:18:44 +03:00
parent 610bf0ca01
commit 4ffdd4610d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pandoc/tar.r7rs.scm
View File

@ -95,4 +95,7 @@
(unless (null? inputs) (unless (null? inputs)
(let ((filename (string-append (number->string i) ".md"))) (let ((filename (string-append (number->string i) ".md")))
(tar-write-file filename (car inputs)) (tar-write-file filename (car inputs))
(loop (+ i 1) (cdr inputs)))))) (loop (+ i 1) (cdr inputs)))))
(let ((nulls (make-bytevector 512 0)))
(write-bytevector nulls)
(write-bytevector nulls)))