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