diff options
| -rw-r--r-- | dump/documentation.scm | 24 | ||||
| -rw-r--r-- | dump/special-forms.scm | 22 |
2 files changed, 25 insertions, 21 deletions
diff --git a/dump/documentation.scm b/dump/documentation.scm new file mode 100644 index 0000000..4c0fd88 --- /dev/null +++ b/dump/documentation.scm @@ -0,0 +1,24 @@ +(define-module (dump documentation) + #:use-module (srfi srfi-9 gnu) + #:export (dump-configuration + dump-configuration? + dump-configuration-triples? + dump-configuration-table-metadata? + dump-configuration-path)) + +(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)) + + 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." |