aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-04 16:44:55 +0300
committerBonfaceKilz2023-07-30 12:29:56 +0300
commitd81fae54dff081fd53c397989b75cdb4e3701313 (patch)
tree575de294045db81687ba2b561539cae37a140dde
parent909eb42f9cf08cc7c88bca2fc25f3281f9787190 (diff)
downloadgn-transform-databases-d81fae54dff081fd53c397989b75cdb4e3701313.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