Conditionally dump documentation

1 files changed, 0 insertions, 36 deletions

diff --git a/dump/documentation.scm b/dump/documentation.scm
deleted file mode 100644
index 5228559..0000000
--- a/dump/documentation.scm
+++ /dev/null
@@ -1,36 +0,0 @@
-(define-module (dump documentation)
-  #:use-module (srfi srfi-9 gnu)
-  #:use-module (srfi srfi-26)
-  #:export (dump-configuration
-            dump-configuration?
-            dump-configuration-triples?
-            dump-configuration-table-metadata?
-            dump-configuration-path
-            call-with-documentation))
-
-
-(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))
-
-
-(define (call-with-documentation conf proc)
-  (let ((port #f)
-        (path (dump-configuration-path conf)))
-    (when path
-      (dynamic-wind
-        (lambda ()
-          (set! port (open-file path "w")))
-        (cut proc port)
-        (cut close port)))))