From 8c6b445bfb6cccc87bc82ef684c4092c467f542d Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 23 Feb 2010 23:56:08 +0000 Subject: [PATCH] Okay, updates to all this crapola. Going to try and see what happens if I only attach prop:unwrap to wrapped objects. svn: r18313 original commit: 60b6c81f9f08c0b5c9598ade16b46060588fee02 --- 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 7b5042e6..552a2856 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 unwrapper more-props) + (lambda (class prop:object preparer dispatcher prop:unwrap more-props) (kernel:primitive-class-prepare-struct-type! - c prop:object class preparer dispatcher prop:unwrap unwrapper more-props)) + c prop:object class preparer dispatcher prop:unwrap more-props)) kernel:initialize-primitive-object 'print-name super (list intf ...) 'args '(old ...)