suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rewrite this a little to make it clear that we're now only checking the

Browse Source 
super class's beta-methods vector to make sure this is even an overrideable
method.

svn: r18181
This commit is contained in:
Stevie Strickland 2010-02-19 04:59:05 +00:00
parent 55d39b0035
commit 6777fc31a3
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/scheme/private/class-internal.ss
View File

@ -2142,22 +2142,21 @@
;; -- Extract superclass methods and make rename-inners ---
(let ([rename-supers (map (lambda (index mname)
;; While the last part of the vector is indeed the right
;; method, if there have been super contracts placed since,
;; they won't be reflected there, only in the super-methods
;; vector of the superclass.
(let ([vec (vector-ref (class-beta-methods super) index)])
(if (positive? (vector-length vec))
;; While the last part of the vector is indeed the right
;; method, if there have been super contracts placed since,
;; they won't be reflected there, only in the super-methods
;; vector of the superclass.
(if (vector-ref vec (sub1 (vector-length vec)))
(vector-ref (class-super-methods super) index)
(obj-error 'class*
(string-append
"superclass ~e method for override, overment, inherit/super, "
"or rename-super is not overrideable: ~a~a")
super
mname
(for-class name)))
(vector-ref (class-super-methods super) index))))
(when (and (positive? (vector-length vec))
(not (vector-ref vec (sub1 (vector-length vec)))))
(obj-error 'class*
(string-append
"superclass ~e method for override, overment, inherit/super, "
"or rename-super is not overrideable: ~a~a")
super
mname
(for-class name))))
(vector-ref (class-super-methods super) index))
rename-super-indices
rename-super-names)]
[rename-inners (let ([new-augonly (make-vector method-width #f)])