From 150548dc78e51f61f4daf269fd23f6dd4c078ce9 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Mon, 13 Feb 2012 10:33:22 -0500 Subject: [PATCH] Better error message for abstract classes. --- collects/racket/private/class-internal.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/racket/private/class-internal.rkt b/collects/racket/private/class-internal.rkt index 1567de0a59..090f0cb0a8 100644 --- a/collects/racket/private/class-internal.rkt +++ b/collects/racket/private/class-internal.rkt @@ -3941,7 +3941,10 @@ An example (raise-type-error 'instantiate "class" class)) ;; make sure the class isn't abstract (unless (null? (class-abstract-ids class)) - (obj-error 'instantiate "cannot instantiate abstract class ~a" class)) + (obj-error 'instantiate + "cannot instantiate class ~a with abstract methods ~a" + class + (class-abstract-ids class))) ;; Generate correct class by concretizing methods w/interface ctcs (let* ([class (fetch-concrete-class class blame)] [o ((class-make-object class))])