From 531b785cf17470309cb91e2d4100102c3055f878 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 24 Apr 1998 02:03:04 +0000 Subject: [PATCH] spelling original commit: bfc62fb9b0b9b9332e6e0067e8ad31fa1676c590 --- collects/tests/mred/item.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index 644e7fe6..7339b77e 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -621,7 +621,7 @@ (unless (or (and (string? expect) (string? v) (string=? expect v)) (eq? expect v)) - (error 'test-compare "~a mistmatch: ~s != ~s" kind expect v)))] + (error 'test-compare "~a mismatch: ~s != ~s" kind expect v)))] [label-test (lambda (menu id expect) (let ([v (send menu get-label id)]) @@ -882,7 +882,7 @@ (unless (string=? (send e get-command-string) (send c get-string-selection) (send c get-string (send c get-selection))) - (error "selection string mistmatch")) + (error "selection string mismatch")) (check-callback-event c cx e commands #f))) (define c (if list? (make-object mred:list-box% p @@ -1034,7 +1034,7 @@ (unless (= (send e get-command-int) i) (error "event selection value mismatch")) (unless (string=? (send e get-command-string) s) - (error "selection string mistmatch")) + (error "selection string mismatch")) (check-callback-event c c e commands #t))) old-list) (printf "content: ~s~n" actual-content))