suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Some selective #:when (not ...)' -> #:unless ...'.

Browse Source 
original commit: 623c7493ed2bbf7c89caea877a7b94a5f4c42c73
This commit is contained in:
Eli Barzilay 2011-09-14 16:53:45 -04:00
parent 5a16309b24
commit 240449694b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/scribble/reader.rkt
View File

@ -932,7 +932,7 @@ END-OF-TESTS
;; split the tests
[ts (regexp-split #px"(?m:^)-+(?:$|\r?\n)" ts)])
(parameterize ([port-count-lines-enabled #t])
(for ([t ts] #:when (not (regexp-match? #px"^\\s*$" t)))
(for ([t ts] #:unless (regexp-match? #px"^\\s*$" t))
(let ([m (or (regexp-match #px"^(.*)\n\\s*(-\\S+->)\\s*\n(.*)$"
t)
(regexp-match #px"^(.*\\S)\\s+(-\\S+->)\\s+(\\S.*)$"