From e79502b828ca8be4d105364c5a2097839e7765ce Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 8 Oct 2024 13:27:17 +0300 Subject: Replace "if" statement with "match." Signed-off-by: Munyoki Kilyungi --- examples/generif.scm | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) (limited to 'examples') diff --git a/examples/generif.scm b/examples/generif.scm index 7a60214..909ec13 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -54,26 +54,24 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol") ("CAST(createtime AS CHAR)" EntryCreateTime))))) (multiset dct:references (map (lambda (pmid) - (if (string-blank? pmid) - "" - (string->symbol - (format #f "pubmed:~a" (string-trim-both pmid))))) + (match pmid + ((? string-blank? p) "") + (p (string->symbol + (format #f "pubmed:~a" (string-trim-both pmid)))))) (string-split (field GeneRIF PubMed_ID PMID) #\space))) (set foaf:mbox - (let ((mbox (sanitize-rdf-string (field GeneRIF email)))) - (if (string-blank? mbox) - "" - (string->symbol - (format #f "<~a>" mbox))))) + (match (sanitize-rdf-string (field GeneRIF email)) + ((? string-blank? mbox) "") + (mbox (string->symbol + (format #f "<~a>" mbox))))) (set dct:identifier (annotate-field (format #f "~s" (field GeneRIF Id)) '^^xsd:integer)) (set foaf:homepage - (let ((homepage (sanitize-rdf-string (field GeneRIF weburl)))) - (if (string-blank? homepage) - "" - (string->symbol - (format #f "<~a>" homepage))))) + (match (sanitize-rdf-string (field GeneRIF weburl)) + ((? string-blank? homepage) "") + (homepage (string->symbol + (format #f "<~a>" homepage))))) (set dct:hasVersion (annotate-field (format #f "~s" (field GeneRIF versionId)) '^^xsd:integer)) (set gnt:initial (sanitize-rdf-string (field GeneRIF initial))) -- cgit v1.2.3