gdritter repos when-computer / 977943f
try this Getty Ritter 2 years ago
1 changed file(s) with 2 addition(s) and 2 deletion(s). Collapse all Expand all
209209 (cdr lst))))))
210210
211211 (define (string-take str i)
212 (substring str 0 (min i (string-length str))))
212 (substring str 0 i))
213213
214214 (define (string-drop str i)
215 (let ((l (string-length str)))
215 (let ((l (- (string-length str) 1)))
216216 (substring str i l)))
217217
218218 (define (gather-para document)