aboutsummaryrefslogtreecommitdiff
path: root/dump.scm
diff options
context:
space:
mode:
authorBonfaceKilz2022-06-22 12:48:54 +0300
committerArun Isaac2022-06-23 11:23:16 +0530
commitc92bcce1f0291695daa12ee90b13013be69bf659 (patch)
tree1dc5eb7d069839203b2762651b5c6c733fa016ca /dump.scm
parentde3ad2c960a36d671c23602f03d60f4422881d6a (diff)
downloadgn-transform-databases-c92bcce1f0291695daa12ee90b13013be69bf659.tar.gz
Remove "." if it occurs at the end of a turtle identifier.
A "." at the end of a turtle identifier---for example "gn:caseAttribute_ethn."---generates an error when trying to validate the generated RDF. * dump.scm (string->identifier): Remove trailing "." if it occurs in the identifier. Signed-off-by: Arun Isaac <arunisaac@systemreboot.net>
Diffstat (limited to 'dump.scm')
-rwxr-xr-xdump.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/dump.scm b/dump.scm
index a3e89a3..ada42e5 100755
--- a/dump.scm
+++ b/dump.scm
@@ -111,7 +111,9 @@ characters with an underscore and prefixing with gn:PREFIX."
(case c
((#\/ #\< #\> #\+ #\( #\) #\space #\@) #\_)
(else c)))
- (string-downcase str))))))
+ (string-downcase
+ (string-trim-right str #\.)))))))
+
(define (snake->lower-camel str)
(let ((char-list (string->list str)))