diff options
author | Munyoki Kilyungi | 2023-07-11 15:21:51 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-07-21 14:36:37 +0300 |
commit | 5661067312cc6f56c1b6b0678c1715c791c90238 (patch) | |
tree | 75e0b70f38077fca3160fd4ceb0e440b3d25fd17 /dump/special-forms.scm | |
parent | 07d1e79fa6cd1294f97394f15fa20da721cb32af (diff) | |
download | gn-transform-databases-5661067312cc6f56c1b6b0678c1715c791c90238.tar.gz |
Move dump-configuration record type to (dump documentation)
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump/special-forms.scm')
-rw-r--r-- | dump/special-forms.scm | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm index 78ee879..b62eb09 100644 --- a/dump/special-forms.scm +++ b/dump/special-forms.scm @@ -1,11 +1,11 @@ (define-module (dump special-forms) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-9 gnu) #:use-module (ice-9 match) #:use-module (srfi srfi-26) #:use-module (dump sql) #:use-module (dump table) #:use-module (dump triples) + #:use-module (dump documentation) #:export (translate-forms collect-forms collect-keys @@ -19,28 +19,8 @@ syntax-let blank-node map-alist - dump-configuration - dump-configuration? - dump-configuration-triples? - dump-configuration-table-metadata? - dump-configuration-auto-documentation-port define-dump)) -(define-immutable-record-type <dump-configuration> - (%dump-configuration triples? table-metadata? auto-documentation-port) - dump-configuration? - (triples? dump-configuration-triples?) - (table-metadata? dump-configuration-table-metadata?) - (auto-documentation-port dump-configuration-auto-documentation-port)) - -(define* (dump-configuration - #:optional - (triples? #t) - (table-metadata? #f) - (auto-documentation-port #f)) - "Return a new configuration." - (%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 k) forms." |