suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Have external field accessors/mutators just redirect to the old object

Browse Source 
themselves.  Also, have all objects carry the prop:unwrap property.

svn: r18330

original commit: 1f10c4e4229636d6d705d8fd97a15dfe0b996b5d
This commit is contained in:
Stevie Strickland 2010-02-24 23:32:44 +00:00
parent 820c221dba
commit d93ba4826d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/kernel.ss
View File

@ -78,9 +78,9 @@
(syntax (syntax
(define name (let ([c (dynamic-require ''#%mred-kernel 'name)]) (define name (let ([c (dynamic-require ''#%mred-kernel 'name)])
(make-primitive-class (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! (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 kernel:initialize-primitive-object
'print-name super (list intf ...) 'args 'print-name super (list intf ...) 'args
'(old ...) '(old ...)