change splitf-at* to filter-split

pull/27/head
Matthew Butterick 10 years ago
parent e317ff1721
commit 707e30f099

@ -314,7 +314,7 @@
(let ([elements (prep-paragraph-flow elements)]) (let ([elements (prep-paragraph-flow elements)])
(if (ormap my-paragraph-break? elements) ; need this condition to prevent infinite recursion (if (ormap my-paragraph-break? elements) ; need this condition to prevent infinite recursion
(map wrap-paragraph (splitf-at* elements my-paragraph-break?)) ; split into ¶¶ (map wrap-paragraph (filter-split elements my-paragraph-break?)) ; split into ¶¶
elements))) elements)))

Loading…
Cancel
Save