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

fixed PR 8233

Browse Source 
svn: r4123
This commit is contained in:
Robby Findler 2006-08-23 17:00:52 +00:00
parent a151dd1e42
commit 513ac7611d
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

@ -184,7 +184,7 @@
(cond (cond
[(null? l) (list (reverse current-line))] [(null? l) (list (reverse current-line))]
[(pict? (car l)) [(pict? (car l))
(loop (cdr l) (cons (car l) (current-line)))] (loop (cdr l) (cons (car l) current-line))]
[else (let ([m (regexp-match #rx"^(.*?)(?:\n|\r\n|\r)[ \t]*(.*)$" (car l))]) [else (let ([m (regexp-match #rx"^(.*?)(?:\n|\r\n|\r)[ \t]*(.*)$" (car l))])
(if m (if m
(cons (cons