diff options
Diffstat (limited to 'dump')
| -rw-r--r-- | dump/schema-dump.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/dump/schema-dump.scm b/dump/schema-dump.scm index 876eafb..86626f4 100644 --- a/dump/schema-dump.scm +++ b/dump/schema-dump.scm @@ -1,6 +1,10 @@ (define-module (dump schema) #:use-module (ice-9 match) - #:use-module (dump sql)) + #:use-module (ice-9 srfi-26) + #:use-module (dump sql) + #:use-module (dump triples) + #:use-module (dump strings) + #:use-module (dump table)) (define (dump-table-fields db table) @@ -90,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) |