From cacaa1463eb37bcddd16e1e1c813dd39229e7928 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 14 Aug 2024 13:53:58 +0300 Subject: Correctly check for blank string in GeneRIF.initial. Signed-off-by: Munyoki Kilyungi --- examples/generif.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples') diff --git a/examples/generif.scm b/examples/generif.scm index 5a78db0..ea095f4 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -97,7 +97,7 @@ #:proc string-capitalize-first)) (version-id (field GeneRIF versionId)) (identifier (field GeneRIF Id)) - (initial (field GeneRIF initial)) + (initial (sanitize-rdf-string (field GeneRIF initial))) (reason (field GeneRIF reason)) (email (sanitize-rdf-string (field GeneRIF email))) (categories @@ -138,7 +138,7 @@ (if (string-blank? reason) "" (format #f "gnt:reason ~s ; " reason)) - (if (null? initial) "" (format #f "gnt:initial ~s ; " initial)) + (if (string-blank? initial) "" (format #f "gnt:initial ~s ; " initial)) (if (not (null? categories)) (format #f "~{gnt:belongsToCategory ~s ; ~}" -- cgit v1.2.3