Whoops small amendment

12 years ago · 27b7f2ac86
parent 7834996d5d
commit 27b7f2ac86
1 changed files with 3 additions and 3 deletions
--- a/tests/requires/include-me.rkt
+++ b/tests/requires/include-me.rkt
@ -16,9 +16,9 @@


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