Prepend test/ to filenames inside test tarfiles

2019-12-28 02:12:01 +02:00 · 2019-12-28 02:12:01 +02:00 · 560c35700b
parent 7a65efb779
commit 560c35700b
1 changed files with 2 additions and 1 deletions
--- a/test-r7rs.scm
+++ b/test-r7rs.scm
@ -18,7 +18,8 @@
             (loop (bytevector-append whole part))))))))

 (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)))

 (main (command-line))