diff options
| author | Munyoki Kilyungi | 2023-11-22 18:35:27 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-11-22 18:35:27 +0300 |
| commit | dbc5bbac28deb8ffe2ae2ec0e037885bba9e5be0 (patch) | |
| tree | d21feed0fe15fc0a9aca1a12dbf93709fb94625a | |
| parent | 7ba1c667540cd739730574fc46b3ae1ff99daefd (diff) | |
| download | gn-transform-databases-dbc5bbac28deb8ffe2ae2ec0e037885bba9e5be0.tar.gz | |
"Add special-case for blank Chr field".
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/probeset.scm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/examples/probeset.scm b/examples/probeset.scm index 2516740..eeb2dcc 100755 --- a/examples/probeset.scm +++ b/examples/probeset.scm @@ -127,15 +127,17 @@ (("Un" mb) (format #f "Not available")) ((chr "") - (format #f "Chr ~a @ Unknown position ~a~:[~;~a~]" - chr mb - (and (string? strand-probe) (or (string=? "+" strand-probe) - (string=? "-" strand-probe))) - (cond ((string=? "+" strand-probe) - " on the plus strand") - ((string=? "-" strand-probe) - " on the minus strand") - (else "")))) + (if (string-blank? chr) + (format #f "Not available") + (format #f "Chr ~a @ Unknown position ~a~:[~;~a~]" + chr mb + (and (string? strand-probe) (or (string=? "+" strand-probe) + (string=? "-" strand-probe))) + (cond ((string=? "+" strand-probe) + " on the plus strand") + ((string=? "-" strand-probe) + " on the minus strand") + (else ""))))) (_ (format #f "Chr ~a @ ~a~:[~;~a~]" chr mb |