From 3a68af494ab4e3d2b46c68efea8bef05a87f005e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 11 Apr 2009 22:40:04 +0000 Subject: [PATCH] fix method name 'equal?' i wxme test svn: r14492 --- collects/tests/mred/wxme.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mred/wxme.ss b/collects/tests/mred/wxme.ss index 695bce1791..3870cd3b20 100644 --- a/collects/tests/mred/wxme.ss +++ b/collects/tests/mred/wxme.ss @@ -156,9 +156,9 @@ (define d1 (new style-delta%)) (define d2 (new style-delta%)) (expect (send d1 get-underlined-on) #f) -(expect (send d1 equal d2) #t) +(expect (send d1 equal? d2) #t) (send d1 set-underlined-on #t) -(expect (send d1 equal d2) #f) +(expect (send d1 equal? d2) #f) (send d2 collapse d1) (expect (send d2 get-underlined-on) #t) (send d2 set-underlined-on #f)