From 9f72eb396a62bb72bebcdb1937ae59e0e15195fc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 2 Dec 2012 14:42:31 -0600 Subject: [PATCH] fix query-aspell so that it returns an empty list when aspell isn't working --- collects/framework/private/aspell.rkt | 28 ++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/collects/framework/private/aspell.rkt b/collects/framework/private/aspell.rkt index 803a789e64..b6621d052e 100644 --- a/collects/framework/private/aspell.rkt +++ b/collects/framework/private/aspell.rkt @@ -197,19 +197,21 @@ (loop)]))))))))) (define (query-aspell line [dict #f]) - (unless (aspell-problematic?) - - (when dict - (unless (member dict (get-aspell-dicts)) - (set! dict #f))) - - (start-aspell-thread) - (sync - (nack-guard-evt - (λ (nack-evt) - (define resp (make-channel)) - (channel-put aspell-req-chan (list line dict resp nack-evt)) - resp))))) + (cond + [(aspell-problematic?) + '()] + [else + (when dict + (unless (member dict (get-aspell-dicts)) + (set! dict #f))) + + (start-aspell-thread) + (sync + (nack-guard-evt + (λ (nack-evt) + (define resp (make-channel)) + (channel-put aspell-req-chan (list line dict resp nack-evt)) + resp)))])) (define aspell-dicts #f) (define (get-aspell-dicts)