From 0031d77d8c780eba153d08981bc93e51e498d8de Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Sun, 30 Jul 2023 12:35:42 +0300 Subject: Pass a default dump-directory when dumping table metadata * dump/schema-dump.scm (dump-data-table): Add extra optional arg "default-dump-directory". Signed-off-by: Munyoki Kilyungi --- dump/schema-dump.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/dump/schema-dump.scm b/dump/schema-dump.scm index 3f52a32..86626f4 100644 --- a/dump/schema-dump.scm +++ b/dump/schema-dump.scm @@ -94,8 +94,9 @@ is a object." (table-columns table)))) tables))) -(define (dump-data-table db table-name data-field) - (let ((dump-directory (string-append %dump-directory "/" table-name)) +(define* (dump-data-table db table-name data-field + #:optional (default-dump-directory "")) + (let ((dump-directory (string-append default-dump-directory "/" table-name)) (port #f) (current-strain-id #f)) (unless (file-exists? dump-directory) -- cgit v1.2.3