From 3316c92904d4a9faf8cfa399a487ad47dff5740a Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 11 Jul 2023 15:21:51 +0300
Subject: Move dump-configuration record type to (dump documentation)

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 dump/documentation.scm | 24 ++++++++++++++++++++++++
 dump/special-forms.scm | 22 +---------------------
 2 files changed, 25 insertions(+), 21 deletions(-)
 create mode 100644 dump/documentation.scm

(limited to 'dump')

diff --git a/dump/documentation.scm b/dump/documentation.scm
new file mode 100644
index 0000000..4c0fd88
--- /dev/null
+++ b/dump/documentation.scm
@@ -0,0 +1,24 @@
+(define-module (dump documentation)
+  #:use-module (srfi srfi-9 gnu)
+  #:export (dump-configuration
+            dump-configuration?
+            dump-configuration-triples?
+            dump-configuration-table-metadata?
+            dump-configuration-path))
+
+(define-immutable-record-type <dump-configuration>
+  (%dump-configuration triples? table-metadata? path)
+  dump-configuration?
+  (triples? dump-configuration-triples?)
+  (table-metadata? dump-configuration-table-metadata?)
+  (path dump-configuration-path))
+
+(define* (dump-configuration
+          #:optional
+          (triples? #t)
+          (table-metadata? #f)
+          (path #f))
+  "Return a new configuration."
+  (%dump-configuration triples? table-metadata? path))
+
+
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."
-- 
cgit v1.2.3