use regexp-split instead of explicit loop

svn: r7373
This commit is contained in:
Eli Barzilay 2007-09-17 23:04:32 +00:00
parent 91f0a7d91a
commit cf182ae8a9

View File

@ -2,6 +2,7 @@
(require (lib "class.ss")
(lib "class100.ss")
(lib "etc.ss")
(lib "string.ss")
(prefix wx: "kernel.ss")
"const.ss"
"check.ss"
@ -40,11 +41,7 @@
l))
style)
(let* ([strings (let loop ([s message])
(let ([m (regexp-match #rx"([^\n]*)[\n](.*)" s)])
(if m
(cons (cadr m) (loop (caddr m)))
(list s))))]
(let* ([strings (regexp-split #rx"\n" message)]
[single? (and (< (length strings) 10)
(andmap (lambda (s) (< (string-length s) 60)) strings))]
[f (make-object (class100 dialog% ()