about summary refs log tree commit diff
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