From 4a71adf8b972761693fab68cbbd1ebd57950e573 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 28 Feb 2014 06:29:29 -0600 Subject: [PATCH] =?UTF-8?q?improve=20error=20message=20of=20object=3D=3F?= --- racket/collects/racket/private/class-internal.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/racket/private/class-internal.rkt b/racket/collects/racket/private/class-internal.rkt index 66ce031f17..d9b831ce19 100644 --- a/racket/collects/racket/private/class-internal.rkt +++ b/racket/collects/racket/private/class-internal.rkt @@ -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)