From 9dc944bac064cd591580df4743063530f07d427b Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Wed, 5 Jul 2023 23:14:17 +0300
Subject: Add a section sub-heading for schema triples

---
 dump/special-forms.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'dump/special-forms.scm')

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:
 
-- 
cgit v1.2.3