From e284229dc279069f938155467d157b82f4f2b539 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 13 Jul 2007 01:03:51 +0000
Subject: [PATCH] remove redundant cond clause

svn: r6901
---
 collects/texpict/private/mrpict-extra.ss | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/collects/texpict/private/mrpict-extra.ss b/collects/texpict/private/mrpict-extra.ss
index ad8be7fa0d..8ea477ad91 100644
--- a/collects/texpict/private/mrpict-extra.ss
+++ b/collects/texpict/private/mrpict-extra.ss
@@ -149,9 +149,6 @@
 		    [(string? style)
 		     (send the-font-list find-or-create-font
 			   size style 'default 'normal 'normal #f 'default #t)]
-		    [(string? style)
-		     (send the-font-list find-or-create-font
-			   size style 'default 'normal 'normal #f 'default #t)]
 		    [(and (pair? style)
 			  (memq (car style)
 				'(superscript