diff options
| author | Munyoki Kilyungi | 2023-08-21 14:49:55 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-08-21 14:49:55 +0300 |
| commit | 849874fdfe11003f05abe5f82efde974a8c8a388 (patch) | |
| tree | 902774358126ed3e74d3d7d2ffb9853b6fb22f71 /dump | |
| parent | 0d651ee8ef5f82a2fc3339329d2c0af6f84a745f (diff) | |
| download | gn-transform-databases-849874fdfe11003f05abe5f82efde974a8c8a388.tar.gz | |
Rename define-dump -> define-transformer
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump')
| -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))) |