diff options
| author | Munyoki Kilyungi | 2023-07-19 14:42:36 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-07-21 14:36:42 +0300 |
| commit | 2d5d68e1bc474062bf2e53b67dd1749268775ce1 (patch) | |
| tree | e0d1d27d90434d874249d4c432734b42e2f35e1c | |
| parent | ddb909bbe6ee37eb19e5c161a6ceb8eabe88561c (diff) | |
| download | gn-transform-databases-2d5d68e1bc474062bf2e53b67dd1749268775ce1.tar.gz | |
Only document a triple if it exists
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rw-r--r-- | dump/special-forms.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm index 283fcc2..a356783 100644 --- a/dump/special-forms.scm +++ b/dump/special-forms.scm @@ -448,13 +448,14 @@ must be remedied." #,(syntax-case #'schema-triples-clause (schema-triples) ((schema-triples (triple-subject triple-predicate triple-object) ...) #`(begin - (format #t "## Schema Triples:~%~%```text~%") - (for-each (lambda (s p o) - (format #t "~a -> ~a -> ~a~%" s p o)) - (list 'triple-subject ...) - (list 'triple-predicate ...) - (list 'triple-object ...)) - (format #t "```"))) + (when (not (list 'triple-subject ...)) + (format #t "## Schema Triples:~%~%```text~%") + (for-each (lambda (s p o) + (format #t "~a -> ~a -> ~a~%" s p o)) + (list 'triple-subject ...) + (list 'triple-predicate ...) + (list 'triple-object ...)) + (format #t "```")))) (_ (error "Invalid schema triples clause:" #'schema-triples-clause))) (format #t " ## Generated Triples: |