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