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
This commit is contained in:
parent
1ea1480288
commit
8c6b445bfb
|
@ -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 ...)
|
||||
|
|
Loading…
Reference in New Issue
Block a user