From 11b8fd4204bb3ff297ae377e4575c89c0ad31171 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Mon, 22 Feb 2010 20:57:36 +0000 Subject: [PATCH] Fix vector creation for internal field access. svn: r18269 --- collects/scheme/private/class-internal.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss index 2784d61608..ca2f65e767 100644 --- a/collects/scheme/private/class-internal.ss +++ b/collects/scheme/private/class-internal.ss @@ -2576,10 +2576,10 @@ (make-vector method-width))] [field-pub-width (class-field-pub-width cls)] [field-ht (class-field-ht cls)] - [int-field-refs (if (null? (class/c-inherits ctc)) + [int-field-refs (if (null? (class/c-inherit-fields ctc)) (class-int-field-refs cls) (make-vector field-pub-width))] - [int-field-sets (if (null? (class/c-inherits ctc)) + [int-field-sets (if (null? (class/c-inherit-fields ctc)) (class-int-field-sets cls) (make-vector field-pub-width))] [ext-field-refs (if (null? (class/c-fields ctc))