From d81fae54dff081fd53c397989b75cdb4e3701313 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 4 Jul 2023 16:44:55 +0300 Subject: 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 (): Ditto renames. (dump-configuration): Ditto. Signed-off-by: Munyoki Kilyungi --- dump/special-forms.scm | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'dump') 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 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 -- cgit v1.2.3