diff options
| -rw-r--r-- | dump/schema-dump.scm | 5 |
1 files 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 <table> 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) |