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)])
|
(let ([s-len (string-length s)] [with-len (string-length start)])
|
||||||
(and (>= s-len with-len)
|
(and (>= s-len with-len)
|
||||||
(string=? (substring s 0 with-len) start)
|
(string=? (substring s 0 with-len) start)
|
||||||
(substring s with-len))))
|
(substring s with-len s-len))))
|
||||||
|
|
||||||
; --- Calculator ---------------------------------------------------------------
|
; --- Calculator ---------------------------------------------------------------
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue