|
|
|
@ -16,9 +16,9 @@
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; how a paragraph break is denoted: two or more newlines
|
|
|
|
;; how a paragraph break is denoted: two or more newlines
|
|
|
|
(define/contract (paragraph-break? str)
|
|
|
|
(define/contract (paragraph-break? x)
|
|
|
|
(string? . -> . boolean?)
|
|
|
|
(any/c . -> . boolean?)
|
|
|
|
(->boolean (regexp-match #px"^\n{2,}$" str)))
|
|
|
|
(and (string? x) (->boolean (regexp-match #px"^\n{2,}$" x))))
|
|
|
|
|
|
|
|
|
|
|
|
(module+ test
|
|
|
|
(module+ test
|
|
|
|
(check-false (paragraph-break? "foo"))
|
|
|
|
(check-false (paragraph-break? "foo"))
|
|
|
|
|
