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

ARGHGHGHGHGHGHGHGGHGH

Browse Source 
svn: r18308
This commit is contained in:
Stevie Strickland 2010-02-23 21:43:08 +00:00
parent e1cd160a40
commit f60645da2c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4020,9 +4020,9 @@
(define-traced (is-a? v c) (define-traced (is-a? v c)
(trace-begin (trace-begin
(trace (when (object? v) (trace (when (object? v) (inspect-event v)))
(inspect-event v)))
(cond (cond
[(not (object? v)) #f]
[(class? c) ((class-object? (class-orig-cls c)) ((object-unwrapper v) v))] [(class? c) ((class-object? (class-orig-cls c)) ((object-unwrapper v) v))]
[(interface? c) [(interface? c)
(and (object? v) (and (object? v)