aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-05 23:14:17 +0300
committerMunyoki Kilyungi2023-07-21 14:36:37 +0300
commitbc15dbce4aeaa63acb49ba17860fb28d888b0f3d (patch)
tree4269d50af6fd0558ba7776642aa38b8bc7080372 /dump
parente384b89d14356db7e5bd54dffb12c9361a60bfc8 (diff)
downloadgn-transform-databases-bc15dbce4aeaa63acb49ba17860fb28d888b0f3d.tar.gz
Add a section sub-heading for schema triples
Diffstat (limited to 'dump')
-rw-r--r--dump/special-forms.scm11
1 files changed, 7 insertions, 4 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm
index cd7a98c..d94733e 100644
--- a/dump/special-forms.scm
+++ b/dump/special-forms.scm
@@ -451,10 +451,13 @@ must be remedied."
(format out "# '~a' Metadata~%~%" (syntax->datum #'name))
#,(syntax-case #'schema-triples-clause (schema-triples)
((schema-triples (triple-subject triple-predicate triple-object) ...)
- #`(for-each triple
- (list 'triple-subject ...)
- (list 'triple-predicate ...)
- (list 'triple-object ...)))
+ #`(begin
+ (format out "## Schema Triples for '~a'~%~%" (syntax->datum #'name))
+ (for-each (lambda (s p o)
+ (format out "~a -> ~a -> ~a~%" s p o))
+ (list 'triple-subject ...)
+ (list 'triple-predicate ...)
+ (list 'triple-object ...))))
(_ (error "Invalid schema triples clause:" #'schema-triples-clause)))
(format out "## Generated Triples: