From dbc5bbac28deb8ffe2ae2ec0e037885bba9e5be0 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 22 Nov 2023 18:35:27 +0300 Subject: "Add special-case for blank Chr field". Signed-off-by: Munyoki Kilyungi --- examples/probeset.scm | 20 +++++++++++--------- 1 file 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 -- cgit v1.2.3