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

better titles

Browse Source 
svn: r8444
This commit is contained in:
Eli Barzilay 2008-01-28 09:54:40 +00:00
parent 3942c9d275
commit 078f9bb4c3
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/browser/external.ss
View File

@ -82,8 +82,7 @@
(define unix-browser-names (define unix-browser-names
(map (lambda (s) (map (lambda (s)
(let ([l (string->list (symbol->string s))]) (string-titlecase (regexp-replace* #rx"-" (symbol->string s) " ")))
(list->string (cons (char-upcase (car l)) (cdr l)))))
raw:unix-browser-list)) raw:unix-browser-list))
;; : (U str #f) -> (U symbol #f) ;; : (U str #f) -> (U symbol #f)