From 849874fdfe11003f05abe5f82efde974a8c8a388 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 21 Aug 2023 14:49:55 +0300
Subject: Rename define-dump -> define-transformer

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 dump/special-forms.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'dump/special-forms.scm')

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)))
-- 
cgit v1.2.3