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

There's an app... err, function for that.

Browse Source 
svn: r18207
This commit is contained in:
Stevie Strickland 2010-02-20 05:32:13 +00:00
parent 98e3695a20
commit ead01c9232
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1913,27 +1913,15 @@
;; -- Match method and field names to indices --
(let ([method-ht (if no-new-methods?
(class-method-ht super)
(make-hasheq))]
(hash-copy (class-method-ht super)))]
[field-ht (if no-new-fields?
(class-field-ht super)
(make-hasheq))]
(hash-copy (class-field-ht super)))]
[super-method-ht (class-method-ht super)]
[super-method-ids (class-method-ids super)]
[super-field-ids (class-field-ids super)]
[super-field-ht (class-field-ht super)])
;; Put superclass ids in tables, with pos
(unless no-new-methods?
(let loop ([ids super-method-ids][p (sub1 (class-method-width super))])
(unless (null? ids)
(hash-set! method-ht (car ids) p)
(loop (cdr ids) (sub1 p)))))
(unless no-new-fields?
(let loop ([ids super-field-ids])
(unless (null? ids)
(hash-set! field-ht (car ids) (hash-ref super-field-ht (car ids)))
(loop (cdr ids)))))
;; Put new ids in table, with pos (replace field pos with accessor info later)
(unless no-new-methods?
(let loop ([ids public-names][p (class-method-width super)])