Commit 820d07fcaa77ab1f948b1c36493752d4d7ef0eec - when-computer

defensive substring Getty Ritter 3 years ago

1 changed file(s) with 1 addition(s) and 1 deletion(s). Collapse all Expand all

-1

generator/telml.scm less more

209	209	(cdr lst))))))
210	210
211	211	(define (string-take str i)
212		(substring str 0 i))
	212	(substring str 0 (min i (string-length str))))
213	213
214	214	(define (string-drop str i)
215	215	(let ((l (string-length str)))