improve name of class field accessors/mutators

svn: r13150
2009-01-15 13:49:04 +00:00 · 2009-01-15 13:49:04 +00:00 · 6aea96cb5c
commit 6aea96cb5c
parent 00604ab789
1 changed files with 1 additions and 1 deletions
--- a/collects/scheme/private/class-internal.ss
+++ b/collects/scheme/private/class-internal.ss
@ -2958,7 +2958,7 @@
 			       (obj-error who "no such field: ~a~a"
 					  name
 					  (for-class (class-name class)))))])
-      (which (cwhich (car p)) (cdr p))))
+      (which (cwhich (car p)) (cdr p) name)))
  
  (define (make-class-field-accessor class name)
    (class-field-X 'class-field-accessor