From 241eae015d2b45cb44aab034c5be75bc18213329 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Mon, 5 Nov 2001 07:23:51 +0000
Subject: [PATCH] ...

original commit: d23beec050e188049f736a5d46a2902db600a5a1
---
 collects/mred/mred.ss | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index c7d107b7..a61f1622 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5868,7 +5868,7 @@
        [(swiss) "Arial"]
        [(script) "Arial"]
        [(symbol) "Symbol"])]
-    [(macos macosx)
+    [(macos)
      (case family
        [(system) "systemfont"]
        [(default) "applicationfont"]
@@ -5877,6 +5877,16 @@
        [(modern) "Monaco"]
        [(swiss) "Helvetica"]
        [(script) "Geneva"]
+       [(symbol) "Symbol"])]
+    [(macosx)
+     (case family
+       [(system) "systemfont"]
+       [(default) "applicationfont"]
+       [(roman) "Times"]
+       [(decorative) "Lucida Grande"]
+       [(modern) "Monaco"]
+       [(swiss) "Helvetica"]
+       [(script) "Geneva"]
        [(symbol) "Symbol"])]))
 
 (define (send-message-to-window x y m)