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

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

Loading…
Cancel
Save