diff options
author | Munyoki Kilyungi | 2023-07-17 21:26:52 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-07-21 14:36:38 +0300 |
commit | 6f5ad55ef75d0f8506421e8a0fb3680ca506a1de (patch) | |
tree | f0fd21db54acd80d321057292d31dfeaca237a5b /dump/documentation.scm | |
parent | 04d83a431590b0c7040d16359f12dd21218b380e (diff) | |
download | gn-transform-databases-6f5ad55ef75d0f8506421e8a0fb3680ca506a1de.tar.gz |
Conditionally dump documentation
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))))) |