diff options
| author | Munyoki Kilyungi | 2023-07-05 23:14:17 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-07-21 14:36:37 +0300 |
| commit | bc15dbce4aeaa63acb49ba17860fb28d888b0f3d (patch) | |
| tree | 4269d50af6fd0558ba7776642aa38b8bc7080372 | |
| parent | e384b89d14356db7e5bd54dffb12c9361a60bfc8 (diff) | |
| download | gn-transform-databases-bc15dbce4aeaa63acb49ba17860fb28d888b0f3d.tar.gz | |
Add a section sub-heading for schema triples
| -rw-r--r-- | dump/special-forms.scm | 11 |
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: |