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

Prepend test/ to filenames inside test tarfiles

This commit is contained in:
Lassi Kortela 2019-12-28 02:12:01 +02:00
parent 7a65efb779
commit 560c35700b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test-r7rs.scm
View File

@ -18,7 +18,8 @@
(loop (bytevector-append whole part)))))))) (loop (bytevector-append whole part))))))))
(define (main arguments) (define (main arguments)
(for-each (lambda (file) (tar-write-file file (slurp-binary-file file))) (for-each (lambda (file) (tar-write-file (string-append "test/" file)
(slurp-binary-file file)))
(cdr arguments))) (cdr arguments)))
(main (command-line)) (main (command-line))