From 27b7f2ac862cf879f166ea0a805abf7c603e89b2 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 9 Aug 2013 18:58:04 -0700
Subject: [PATCH] Whoops small amendment

---
 tests/requires/include-me.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/requires/include-me.rkt b/tests/requires/include-me.rkt
index 284222a..a4ec7df 100644
--- 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"))