From 2fb34bcfdc3c9d7cabb81a0b02aa78d8569e62aa Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Apr 2010 19:15:53 -0400
Subject: [PATCH] fix Scribble reader test regexp-split pattern

---
 collects/tests/scribble/reader.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/scribble/reader.ss b/collects/tests/scribble/reader.ss
index 29e6d7a7bb..53ea81e3b4 100644
--- a/collects/tests/scribble/reader.ss
+++ b/collects/tests/scribble/reader.ss
@@ -920,7 +920,7 @@ END-OF-TESTS
            ;; remove all comment lines
            [ts (regexp-replace* #px"(?m:^;.*\r?\n)" ts "")]
            ;; split the tests
-           [ts (regexp-split #px"(?:^|\r?\n)-+(?:$|\r?\n)" ts)])
+           [ts (regexp-split #px"(?m:^)-+(?:$|\r?\n)" ts)])
       (parameterize ([port-count-lines-enabled #t])
         (for ([t ts] #:when (not (regexp-match? #px"^\\s*$" t)))
           (let ([m (or (regexp-match #px"^(.*)\n\\s*(-\\S+->)\\s*\n(.*)$"