aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
Diffstat (limited to 'dump')
-rw-r--r--dump/special-forms.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm
index 7b32785..f771cc1 100644
--- a/dump/special-forms.scm
+++ b/dump/special-forms.scm
@@ -19,7 +19,7 @@
blank-node
map-alist
dump-with-documentation
- define-dump))
+ define-transformer))
(define (key->assoc-ref alist x)
"Recursively translate (key k) forms in source X to (assoc-ref ALIST
@@ -342,14 +342,14 @@ literals is optional. So,
(syntax-let (bindings ...)
body ...))))))
-(define-syntax define-dump
+(define-syntax define-transformer
(lambda (x)
"Define FUNCTION-NAME, a function that dumps a view of the database.
-define-dump consists of three order-agnostic clauses---tables,
+define-transformer consists of three order-agnostic clauses---tables,
schema-triples and triples---in the form shown below.
-(define-dump function-name
+(define-transformer function-name
(tables (table ...) raw-forms ...)
(schema-triples
(subject predicate object) ...)
@@ -537,7 +537,7 @@ The above query results to triples that have the form:
(primary-table other-tables ...)
tables-raw ...)))
)))
- (_ (error "Invalid define-dump syntax:" (syntax->datum x))))))
+ (_ (error "Invalid define-transformer syntax:" (syntax->datum x))))))
(define (get-keyword-value args keyword default)
(let ((kv (memq keyword args)))