diff options
| -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 |