calc: fix usage of (substring)
This commit is contained in:
parent
d97f28e7f7
commit
2474b5f3f5
|
@ -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 ---------------------------------------------------------------
|
||||
|
||||
|
|
Loading…
Reference in New Issue