diff options
| author | Munyoki Kilyungi | 2023-07-04 16:44:55 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-07-21 14:36:36 +0300 |
| commit | 53744ec8048e2e77636b420f3f2ebc98e1dd9d3c (patch) | |
| tree | 575de294045db81687ba2b561539cae37a140dde | |
| parent | ff7a8c5419f464fbcdd2fece84df306025f05cf1 (diff) | |
| download | gn-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.scm | 17 |
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 |