aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--dump/triples.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/dump/triples.scm b/dump/triples.scm
index 700437a..33b4ae3 100644
--- a/dump/triples.scm
+++ b/dump/triples.scm
@@ -35,8 +35,12 @@ characters with an underscore and prefixing with gn:PREFIX."
(string-downcase
(string-trim-right str #\.)))))))
-(define (prefix prefix iri)
- (format #t "@prefix ~a ~a .~%" prefix iri))
+(define* (prefix prefix iri #:optional (ttl? #t))
+ (format #t
+ (if ttl?
+ "@prefix ~a ~a .~%"
+ "PREFIX ~a ~a ~%")
+ prefix iri))
(define (ontology prefix value)
(if (and (string? value) (string-null? value))