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/special-forms.scm | 22 +---------------------
 1 file changed, 1 insertion(+), 21 deletions(-)

(limited to 'dump/special-forms.scm')

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