From d93ba4826df0e4ebf137894f1d0a6e7a8e6cea9c Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 24 Feb 2010 23:32:44 +0000 Subject: [PATCH] Have external field accessors/mutators just redirect to the old object themselves. Also, have all objects carry the prop:unwrap property. svn: r18330 original commit: 1f10c4e4229636d6d705d8fd97a15dfe0b996b5d --- collects/mred/private/kernel.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index 552a2856..7b5042e6 100644 --- a/collects/mred/private/kernel.ss +++ b/collects/mred/private/kernel.ss @@ -78,9 +78,9 @@ (syntax (define name (let ([c (dynamic-require ''#%mred-kernel 'name)]) (make-primitive-class - (lambda (class prop:object preparer dispatcher prop:unwrap more-props) + (lambda (class prop:object preparer dispatcher prop:unwrap unwrapper more-props) (kernel:primitive-class-prepare-struct-type! - c prop:object class preparer dispatcher prop:unwrap more-props)) + c prop:object class preparer dispatcher prop:unwrap unwrapper more-props)) kernel:initialize-primitive-object 'print-name super (list intf ...) 'args '(old ...)