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

Also change some old code to use vector-copy! as appropriate.

Browse Source 
svn: r18206
This commit is contained in:
Stevie Strickland 2010-02-20 05:25:36 +00:00
parent 7b7d70a993
commit 98e3695a20
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2258,15 +2258,12 @@
;; -- Fill in method tables --
;; First copy old methods
(unless no-method-changes?
(hash-for-each
super-method-ht
(lambda (name index)
(vector-set! methods index (vector-ref (class-methods super) index))
(vector-set! super-methods index (vector-ref (class-super-methods super) index))
(vector-set! int-methods index (vector-ref (class-int-methods super) index))
(vector-set! beta-methods index (vector-ref (class-beta-methods super) index))
(vector-set! meth-flags index (vector-ref (class-meth-flags super) index))
(vector-set! inner-projs index (vector-ref (class-inner-projs super) index)))))
(vector-copy! methods 0 (class-methods super))
(vector-copy! super-methods 0 (class-super-methods super))
(vector-copy! int-methods 0 (class-int-methods super))
(vector-copy! beta-methods 0 (class-beta-methods super))
(vector-copy! meth-flags 0 (class-meth-flags super))
(vector-copy! inner-projs 0 (class-inner-projs super)))
;; Add new methods:
(for-each (lambda (index method)
(vector-set! methods index method)