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

natural-language glyph test should supply #t for for-label

Browse Source 
svn: r1611
This commit is contained in:
Matthew Flatt 2005-12-13 21:25:17 +00:00
parent 3668b2cabd
commit 79a2e9d17b
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/drscheme/private/app.ss
View File

@ -499,7 +499,7 @@
(reverse good-strs))] (reverse good-strs))]
[else (let ([str (car strs)] [else (let ([str (car strs)]
[lang (car langs)]) [lang (car langs)])
(if (andmap (λ (char) (send normal-control-font screen-glyph-exists? char)) (if (andmap (λ (char) (send normal-control-font screen-glyph-exists? char #t))
(string->list str)) (string->list str))
(loop (cdr langs) (loop (cdr langs)
(cdr strs) (cdr strs)