From 910e1a848a70382a4515675dd7c6ff1c5c3bdbb2 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Mon, 3 Nov 2003 19:54:55 +0000
Subject: [PATCH] ...

original commit: 39bc072462c9539bde693a1756d9de34922427e9
---
 collects/net/sendmail-unit.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/net/sendmail-unit.ss b/collects/net/sendmail-unit.ss
index e874eb0..a1dc58c 100644
--- a/collects/net/sendmail-unit.ss
+++ b/collects/net/sendmail-unit.ss
@@ -16,7 +16,8 @@
 	'("/usr/lib" "/usr/sbin"))
 
       (define sendmail-program-file
-	(if (eq? (system-type) 'unix)
+	(if (or (eq? (system-type) 'unix)
+                (eq? (system-type) 'macosx))
 	    (let loop ((paths sendmail-search-path))
 	      (if (null? paths)
 		  (raise (make-exn:misc:unsupported