diff options
| author | Munyoki Kilyungi | 2023-07-11 15:21:51 +0300 |
|---|---|---|
| committer | BonfaceKilz | 2023-07-30 12:29:56 +0300 |
| commit | 3316c92904d4a9faf8cfa399a487ad47dff5740a (patch) | |
| tree | 75e0b70f38077fca3160fd4ceb0e440b3d25fd17 /dump/special-forms.scm | |
| parent | 75126b1b7889769fa11dc928cf481796cf9d24a5 (diff) | |
| download | gn-transform-databases-3316c92904d4a9faf8cfa399a487ad47dff5740a.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." |