calc: fix usage of (substring)

This commit is contained in:
Přemysl Eric Janouch 2016-04-28 23:25:29 +02:00
parent d97f28e7f7
commit 2474b5f3f5
Signed by: p
GPG Key ID: B715679E3A361BE6
1 changed files with 1 additions and 1 deletions

View File

@ -89,7 +89,7 @@
(let ([s-len (string-length s)] [with-len (string-length start)])
(and (>= s-len with-len)
(string=? (substring s 0 with-len) start)
(substring s with-len))))
(substring s with-len s-len))))
; --- Calculator ---------------------------------------------------------------