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

use regexp-split instead of explicit loop

Browse Source 
svn: r7373

original commit: cf182ae8a9a4a533d8a92f69b1d9f781c0f7b396
This commit is contained in:
Eli Barzilay 2007-09-17 23:04:32 +00:00
parent 019f4b2c40
commit f3759ab9d2
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/messagebox.ss
View File

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