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

improve error message of object=?

Browse Source
This commit is contained in:
Robby Findler 2014-02-28 06:29:29 -06:00
parent 32f09c3570
commit 4a71adf8b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/racket/private/class-internal.rkt
View File

@ -4203,9 +4203,9 @@ An example
(define (object=? o1 o2)
(unless (object? o1)
(raise-argument-error 'object=? "object?" o1))
(raise-argument-error 'object=? "object?" 0 o1 o2))
(unless (object? o2)
(raise-argument-error 'object=? "object?" o2))
(raise-argument-error 'object=? "object?" 1 o1 o2))
(let* ([orig-o1 (if (has-original-object? o1) (original-object o1) o1)]
[orig-o2 (if (has-original-object? o2) (original-object o2) o2)]
[orig-orig-o1 (if (wrapped-object? orig-o1)