original commit: 0baf74d2b2db0dcc2731a864798f331c10c283b0
This commit is contained in:
Matthew Flatt 2001-02-13 20:54:30 +00:00
parent 2fc8de8f76
commit 00525dc4a9

View File

@ -195,7 +195,7 @@
[use-final-indices (get-indices use-final-ids)]
[replace-indices (get-indices replace-ids)]
[new-indices (get-indices new-ids)]
[method-prim-vec (make-vector width (and primitive #f))])
[method-prim-vec (make-vector width (and primitive #t))])
;; Copy super's method prim flags:
(let ([svec (class-method-prim-vec super)])