remove redundant cond clause

svn: r6901
This commit is contained in:
Matthew Flatt 2007-07-13 01:03:51 +00:00
parent a7b1a7119b
commit e284229dc2

View File

@ -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