aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/dump-probeset.scm15
1 files changed, 5 insertions, 10 deletions
diff --git a/examples/dump-probeset.scm b/examples/dump-probeset.scm
index f34b4bd..c614a76 100755
--- a/examples/dump-probeset.scm
+++ b/examples/dump-probeset.scm
@@ -66,19 +66,14 @@
(let ((id (field ("IF(NULLIF(TRIM(ProbeSet.Name), '') IS NULL, '', TRIM(ProbeSet.Name))"
ProbeSetIdName)))
(probeset-id (field ProbeSet Id)))
- (if (string-null? id)
- (string->identifier
- "probeset"
- (number->string
- probeset-id))
- (string->identifier
- ""
+ (string->identifier
+ "probeset"
+ (if (string-null? id)
+ (number->string probeset-id)
(regexp-substitute/global
#f "[^A-Za-z0-9:]"
id
- 'pre "_" 'post)
- #:separator ""
- #:proc string-capitalize-first)))
+ 'pre "_" 'post))))
(set rdf:type 'gnc:probeset)
(set rdfs:label (field ProbeSet Name))
(set skos:altLabel