aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-12-17 11:53:07 +0530
committerArun Isaac2021-12-17 15:52:19 +0530
commit22a13221935c37c06ad5ed56f5de64295ae5e886 (patch)
tree5a65807e771ca462b8a4db6fca366173acfc1be1
parent97c6c79a40ab801b38bce3cc39af46b354175187 (diff)
downloadgn-transform-databases-22a13221935c37c06ad5ed56f5de64295ae5e886.tar.gz
Indent define-dump better.
* dump.scm (define-dump): Indent better.
-rwxr-xr-xdump.scm19
1 files 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))))))