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

racket/class: shave a little time from send

Browse Source
This commit is contained in:
Matthew Flatt 2014-05-28 07:49:12 +01:00
parent 48de8a43c0
commit 8ad889e2c4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/collects/racket/private/class-internal.rkt
View File

@ -3709,12 +3709,12 @@ An example
(define (find-method/who who in-object name)
(cond
[(_object? in-object)
(define cls (object-ref in-object #f))
(define mth-idx (hash-ref (class-method-ht cls) name #f))
(if mth-idx
(vector-ref (class-methods cls) mth-idx)
(no-such-method who name cls))]
[(object-ref in-object #f) ; non-#f result implies `_object?`
=> (lambda (cls)
(define mth-idx (hash-ref (class-method-ht cls) name #f))
(if mth-idx
(vector-ref (class-methods cls) mth-idx)
(no-such-method who name cls)))]
[(wrapped-object? in-object)
(define cls
(let loop ([obj in-object])