From aa7062a35e5fb63a0029e42c4412b6d39ec3a508 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 23 Feb 2010 15:01:04 +0000 Subject: [PATCH] Fix up kernel.ss to include unwrapper, also fix arity check now that it takes one more. svn: r18300 --- collects/mred/private/kernel.ss | 4 ++-- src/mzscheme/utils/xcglue.c | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index 794007f5b7..7c257f25ab 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 more-props) + (lambda (class prop:object preparer dispatcher unwrapper more-props) (kernel:primitive-class-prepare-struct-type! - c prop:object class preparer dispatcher more-props)) + c prop:object class preparer dispatcher unwrapper more-props)) kernel:initialize-primitive-object 'print-name super (list intf ...) 'args '(old ...) diff --git a/src/mzscheme/utils/xcglue.c b/src/mzscheme/utils/xcglue.c index 0aa7e6c8c2..54f59c101d 100644 --- a/src/mzscheme/utils/xcglue.c +++ b/src/mzscheme/utils/xcglue.c @@ -562,7 +562,7 @@ void objscheme_init(Scheme_Env *env) scheme_install_xc_global("primitive-class-prepare-struct-type!", scheme_make_prim_w_arity(class_prepare_struct_type, "primitive-class-prepare-struct-type!", - 6, 6), + 7, 7), env); scheme_install_xc_global("primitive-class-find-method",