From 22a13221935c37c06ad5ed56f5de64295ae5e886 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 17 Dec 2021 11:53:07 +0530
Subject: Indent define-dump better.

* dump.scm (define-dump): Indent better.
---
 dump.scm | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/dump.scm b/dump.scm
index e1bcf5e..fd0b8b5 100755
--- a/dump.scm
+++ b/dump.scm
@@ -216,16 +216,15 @@ ALIST field-name) forms."
                                      (list 'triple-predicate ...)
                                      (list 'triple-object ...)))
                         (_ (error "Invalid schema triples clause:" schema-triples-clause)))
-                    (sql-for-each
-                     (lambda (row)
-                       (scm->triples
-                        (map-alist row #,@(field->key #'(predicates ...)))
-                        #,(field->assoc-ref #'row #'subject)))
-                     db
-                     #,(syntax-case tables-clause (tables)
-                         ((tables tables-spec raw ...)
-                          #`(select-query #,fields tables-spec raw ...))
-                         (_ (error "Invalid tables clause:" (syntax->datum tables-clause)))))))))
+                    (sql-for-each (lambda (row)
+                                    (scm->triples
+                                     (map-alist row #,@(field->key #'(predicates ...)))
+                                     #,(field->assoc-ref #'row #'subject)))
+                                  db
+                                  #,(syntax-case tables-clause (tables)
+                                      ((tables tables-spec raw ...)
+                                       #`(select-query #,fields tables-spec raw ...))
+                                      (_ (error "Invalid tables clause:" (syntax->datum tables-clause)))))))))
            (_ (error "Invalid triples clause:" triples-clause)))))
       (_ (error "Invalid define-dump syntax:" (syntax->datum x))))))
 
-- 
cgit v1.2.3