diff options
| author | Munyoki Kilyungi | 2024-08-14 09:48:51 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-08-14 09:48:51 +0300 |
| commit | bc0ffa6fcb3d895d4396de9828e3989b0f2b2f7d (patch) | |
| tree | f0580a9a5a83ea27f73c1104bba6de47dbd52858 /examples/generif.scm | |
| parent | 71cdd910523003602f90bfd9d499d629150142de (diff) | |
| download | gn-transform-databases-bc0ffa6fcb3d895d4396de9828e3989b0f2b2f7d.tar.gz | |
Replace [] with () in let* form.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/generif.scm')
| -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 "[ " |