aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-04 16:44:55 +0300
committerMunyoki Kilyungi2023-07-21 14:36:36 +0300
commit53744ec8048e2e77636b420f3f2ebc98e1dd9d3c (patch)
tree575de294045db81687ba2b561539cae37a140dde
parentff7a8c5419f464fbcdd2fece84df306025f05cf1 (diff)
downloadgn-transform-databases-53744ec8048e2e77636b420f3f2ebc98e1dd9d3c.tar.gz
Rename dump-configuration slots
* dump/special-forms.scm: Export dump-configuration? Rename dump-configuration-table-metadata -> dump-configuration-triples?; dump-configuration-table-dump -> dump-configuration-table-metadata?; and dump-configuration-auto-document-path -> dump-configuration-auto-documentation-port (<dump-configuration>): Ditto renames. (dump-configuration): Ditto. Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rw-r--r--dump/special-forms.scm17
1 files changed, 9 insertions, 8 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm
index 2b6a0bb..5a47b8f 100644
--- a/dump/special-forms.scm
+++ b/dump/special-forms.scm
@@ -20,25 +20,26 @@
blank-node
map-alist
dump-configuration
+ dump-configuration?
+ dump-configuration-triples?
dump-configuration-table-metadata?
- dump-configuration-table-dump?
- dump-configuration-auto-document-path
+ dump-configuration-auto-documentation-port
define-dump))
(define-immutable-record-type <dump-configuration>
- (%dump-configuration table-metadata? auto-document-path)
+ (%dump-configuration triples? table-metadata? auto-documentation-port)
dump-configuration?
+ (triples? dump-configuration-triples?)
(table-metadata? dump-configuration-table-metadata?)
- (table-dump? dump-configuration-table-dump?)
- (auto-document-path dump-configuration-auto-document-path))
+ (auto-documentation-port dump-configuration-auto-documentation-port))
(define* (dump-configuration
#:optional
- (table-dump? #t)
+ (triples? #t)
(table-metadata? #f)
- (auto-document-path #f))
+ (auto-documentation-port #f))
"Return a new configuration."
- (%dump-configuration table-metadata? auto-document-path))
+ (%dump-configuration triples? table-metadata? auto-documentation-port))
(define (key->assoc-ref alist x)
"Recursively translate (key k) forms in source X to (assoc-ref ALIST