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

just curly closing quotes as para punctuation

Browse Source 
svn: r9359
This commit is contained in:
Matthew Flatt 2008-04-18 12:17:53 +00:00
parent 811216ad78
commit 3730930380
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/slideshow/core.ss
View File

@ -625,7 +625,7 @@
[(null? l) (reverse a)]
[(null? a) (loop (cdr l) (list (car l)))]
[(and (string? (car l))
(regexp-match #rx"^[-',. :;?!“”‘’)]" (car l)))
(regexp-match #rx"^[-',. :;?!)\U201D\U2019]" (car l)))
(let ([m (regexp-match #rx"^([^ ]*) (.*)$" (car l))])
(if m
(if (string? (car a))