diff options
| -rwxr-xr-x | examples/generif.scm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 5ec78f5..706109f 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -92,25 +92,25 @@ (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)) + "" + (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)) (email (sanitize-rdf-string (field GeneRIF email))) (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)) - "$$"))))) + (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 "[ " |