original commit: 91d394c706ea8a774c76e27403ee2ba4e4532be6
This commit is contained in:
Matthew Flatt 2001-03-02 20:47:02 +00:00
parent 4cdb379cc7
commit ad6f23ed7e

View File

@ -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