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

added curly quotes as things that do not need spaces before them

Browse Source 
svn: r9358
This commit is contained in:
Robby Findler 2008-04-18 12:03:08 +00:00
parent bf6d4b746c
commit 811216ad78
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/slideshow/core.ss
View File

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