diff options
| -rwxr-xr-x | examples/probeset.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/probeset.scm b/examples/probeset.scm index c7efce7..9f694af 100755 --- a/examples/probeset.scm +++ b/examples/probeset.scm @@ -104,19 +104,19 @@ (and (string? strand-probe) (or (string=? "+" strand-probe) (string=? "-" strand-probe))) (cond ((string=? "+" strand-probe) - " on the plus strand") + "on the plus strand") ((string=? "-" strand-probe) - " on the minus strand") + "on the minus strand") (else ""))))) (_ - (format #f "Chr ~a @ ~a~:[~;~a~]" + (format #f "Chr ~a @ ~a Mb ~:[~;~a~]" chr mb (and (string? strand-probe) (or (string=? "+" strand-probe) (string=? "-" strand-probe))) (cond ((string=? "+" strand-probe) - " on the plus strand") + "on the plus strand") ((string=? "-" strand-probe) - " on the minus strand") + "on the minus strand") (else ""))))))) (set gnt:hasGeneId (ontology 'gene: |