aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/generif.scm46
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
"[ "