diff options
| author | Arun Isaac | 2021-12-17 11:53:07 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-12-17 15:52:19 +0530 |
| commit | 22a13221935c37c06ad5ed56f5de64295ae5e886 (patch) | |
| tree | 5a65807e771ca462b8a4db6fca366173acfc1be1 | |
| parent | 97c6c79a40ab801b38bce3cc39af46b354175187 (diff) | |
| download | gn-transform-databases-22a13221935c37c06ad5ed56f5de64295ae5e886.tar.gz | |
Indent define-dump better.
* dump.scm (define-dump): Indent better.
| -rwxr-xr-x | dump.scm | 19 |
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)))))) |