diff options
| -rwxr-xr-x | examples/generif.scm | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 34562a5..8e36705 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -87,29 +87,29 @@ 'pre "_" 'post) #:proc (lambda (x) x)) (set rdfs:comment - (let* ([generif-comment (sanitize-rdf-string (field GeneRIF comment))] - [create-time (field GeneRIF createtime EntryCreateTime)] - [pmid (field GeneRIF PubMed_ID PMID)] - [web-url (field GeneRIF weburl)] - [species (string->identifier - "" - (remap-species-identifiers (field Species Fullname)) - #:separator "" - #:proc string-capitalize-first)] - [version-id (field GeneRIF versionId)] - [identifier (field GeneRIF Id)] - [initial (field GeneRIF initial)] - [reason (field GeneRIF reason)] - [categories - (remove (lambda (x) - (or (eq? x #f) - (and (string? x) - (string-null? x)))) - (remove-duplicates - (string-split-substring - (field ("GROUP_CONCAT(DISTINCT GeneCategory.Name SEPARATOR '$$')" - GeneCategory)) - "$$")))]) + (let* ((generif-comment (sanitize-rdf-string (field GeneRIF comment))) + (create-time (field GeneRIF createtime EntryCreateTime)) + (pmid (field GeneRIF PubMed_ID PMID)) + (web-url (field GeneRIF weburl)) + (species (string->identifier + "" + (remap-species-identifiers (field Species Fullname)) + #:separator "" + #:proc string-capitalize-first)) + (version-id (field GeneRIF versionId)) + (identifier (field GeneRIF Id)) + (initial (field GeneRIF initial)) + (reason (field GeneRIF reason)) + (categories + (remove (lambda (x) + (or (eq? x #f) + (and (string? x) + (string-null? x)))) + (remove-duplicates + (string-split-substring + (field ("GROUP_CONCAT(DISTINCT GeneCategory.Name SEPARATOR '$$')" + GeneCategory)) + "$$"))))) (string->symbol (string-append "[ " |