Browse Source

Fixed a bug to display message containing '-'

master
parent
commit
6fe74add57
  1. 3
      displaylib.scm

3
displaylib.scm

@ -44,7 +44,8 @@
(string<? current-car "z"))
(and
(string>? current-car "0")
(string<? current-car "9"))))
(string<? current-car "9"))
(string=? current-car "-")))
n
(rec-last-special s (- n 1))))))

Loading…
Cancel
Save