From 8ed23ab93ea5f82866dc8e97224c2aafbe54ed11 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 10 Feb 2026 10:18:54 +0300 Subject: path-without-extension: utility function. Signed-off-by: Munyoki Kilyungi --- transform/special-forms.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'transform/special-forms.scm') diff --git a/transform/special-forms.scm b/transform/special-forms.scm index d8abf2c..0c07a0a 100644 --- a/transform/special-forms.scm +++ b/transform/special-forms.scm @@ -622,7 +622,8 @@ The above query results to triples that have the form: (out-file (if (= chunks 1) rdf-path - (string-append rdf-path "." (number->string (+ i 1)) ".ttl")))) + (string-append (path-without-extension rdf-path) + "." (number->string (+ i 1)) ".ttl")))) (with-output-to-file out-file (lambda () -- cgit 1.4.1