original commit: 13954c43a4f52cb335cec79cec648ce8ab360ff7
This commit is contained in:
Matthew Flatt 2002-05-04 14:11:41 +00:00
parent ef53498530
commit f8411f72e4

View File

@ -2090,7 +2090,7 @@
(values
new-methods
override-methods
(lambda (this super/ignored init-args)
(lambda (this super-id/ignored si_c/ignored si_inited?/ignored si_leftovers/ignored init-args)
(apply prim-init this
(if init-arg-names
(extract-primitive-args this name init-arg-names init-args)