From 79a2e9d17b64fe085242911c54b7c8727a1b2743 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 13 Dec 2005 21:25:17 +0000 Subject: [PATCH] natural-language glyph test should supply #t for for-label svn: r1611 --- collects/drscheme/private/app.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drscheme/private/app.ss b/collects/drscheme/private/app.ss index 94a6498d11..c6e1ed30ed 100644 --- a/collects/drscheme/private/app.ss +++ b/collects/drscheme/private/app.ss @@ -499,7 +499,7 @@ (reverse good-strs))] [else (let ([str (car strs)] [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)) (loop (cdr langs) (cdr strs)