suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

spelling

Browse Source 
original commit: bfc62fb9b0b9b9332e6e0067e8ad31fa1676c590
This commit is contained in:
Matthew Flatt 1998-04-24 02:03:04 +00:00
parent d32bd62fab
commit 531b785cf1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/mred/item.ss
View File

@ -621,7 +621,7 @@
(unless (or (and (string? expect) (string? v) (unless (or (and (string? expect) (string? v)
(string=? expect v)) (string=? expect v))
(eq? 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 [label-test
(lambda (menu id expect) (lambda (menu id expect)
(let ([v (send menu get-label id)]) (let ([v (send menu get-label id)])
@ -882,7 +882,7 @@
(unless (string=? (send e get-command-string) (unless (string=? (send e get-command-string)
(send c get-string-selection) (send c get-string-selection)
(send c get-string (send c get-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))) (check-callback-event c cx e commands #f)))
(define c (if list? (define c (if list?
(make-object mred:list-box% p (make-object mred:list-box% p
@ -1034,7 +1034,7 @@
(unless (= (send e get-command-int) i) (unless (= (send e get-command-int) i)
(error "event selection value mismatch")) (error "event selection value mismatch"))
(unless (string=? (send e get-command-string) s) (unless (string=? (send e get-command-string) s)
(error "selection string mistmatch")) (error "selection string mismatch"))
(check-callback-event c c e commands #t))) (check-callback-event c c e commands #t)))
old-list) old-list)
(printf "content: ~s~n" actual-content)) (printf "content: ~s~n" actual-content))