aboutsummaryrefslogtreecommitdiff
path: root/dump/documentation.scm
diff options
context:
space:
mode:
Diffstat (limited to 'dump/documentation.scm')
-rw-r--r--dump/documentation.scm36
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)))))