From 816a172e8df2bde88100b90cde355a23834e66c0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 17 Nov 2005 21:58:44 +0000
Subject: [PATCH] recognize aspell

svn: r1341
---
 collects/sirmail/spell.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/sirmail/spell.ss b/collects/sirmail/spell.ss
index c6ecdf678d..35349cdcde 100644
--- a/collects/sirmail/spell.ss
+++ b/collects/sirmail/spell.ss
@@ -107,7 +107,11 @@
 				 '("/sw/bin/ispell"
 				   "/usr/bin/ispell"
 				   "/bin/ispell"
-				   "/usr/local/bin/ispell")))])
+				   "/usr/local/bin/ispell"))
+			  (find-executable-path (if (eq? (system-type) 'windows)
+						    "aspell.exe"
+						    "aspell")
+						#f))])
         (if (not existing)
             (set! has-ispell? #f)
             (begin