From 560c35700b495d3d8c85c4ed960865c355feb2d0 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Sat, 28 Dec 2019 02:12:01 +0200 Subject: [PATCH] Prepend test/ to filenames inside test tarfiles --- test-r7rs.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test-r7rs.scm b/test-r7rs.scm index b212296..af9e80a 100755 --- 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))