diff options
| -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 |