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

Remove now-redundant object? check in is-a?

Browse Source 
svn: r18448
This commit is contained in:
Stevie Strickland 2010-03-03 17:04:41 +00:00
parent 62e077e90d
commit 77f2555b9c
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4031,9 +4031,7 @@
(cond
[(not (object? v)) #f]
[(class? c) ((class-object? (class-orig-cls c)) ((object-unwrapper v) v))]
[(interface? c)
(and (object? v)
(implementation? (object-ref ((object-unwrapper v) v)) c))]
[(interface? c) (implementation? (object-ref ((object-unwrapper v) v)) c)]
[else (raise-type-error 'is-a? "class or interface" 1 v c)])))
(define (subclass? v c)