pull/23/head
Matthew Butterick 5 years ago
parent 7547324037
commit 310651e374

@ -15,7 +15,8 @@
tok))
(define (parse src toks)
(define heptatoks (let loop ([toks toks][acc null])
(define heptatoks
(let loop ([toks toks][acc null])
(if (empty? toks)
(reverse acc)
(loop (drop toks 7) (cons (take toks 7) acc)))))

Loading…
Cancel
Save