diff options
Diffstat (limited to 'dump/documentation.scm')
-rw-r--r-- | dump/documentation.scm | 36 |
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))))) |