aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
Diffstat (limited to 'dump')
-rw-r--r--dump/special-forms.scm15
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: