.
original commit: 91d394c706ea8a774c76e27403ee2ba4e4532be6
This commit is contained in:
parent
4cdb379cc7
commit
ad6f23ed7e
|
@ -89,10 +89,11 @@
|
|||
(with-syntax ([(old ...) (datum->syntax old #f #f)]
|
||||
[(new ...) (datum->syntax new #f #f)])
|
||||
(syntax
|
||||
(define name (let ([c (dynamic-require '#%mred-kernel 'name)])
|
||||
(kernel:primitive-class-prepare-struct-type! c prop:object)
|
||||
(define name (let ([c (dynamic-require '#%mred-kernel 'name)]
|
||||
[b (box #f)])
|
||||
(kernel:primitive-class-prepare-struct-type! c prop:object b)
|
||||
(make-prim-class
|
||||
(kernel:primitive-class->struct-type c)
|
||||
(kernel:primitive-class->struct-type c) b
|
||||
kernel:dispatcher-property
|
||||
kernel:initialize-primitive-object
|
||||
'name super
|
||||
|
|
Loading…
Reference in New Issue
Block a user