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

Add back in old object-info hack.

Browse Source
This commit is contained in:
Stevie Strickland 2010-12-01 14:48:19 -05:00
parent 30afcd3bf5
commit 4e451a1b79
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4156,14 +4156,15 @@
(raise-type-error 'object-info "object" o)) (raise-type-error 'object-info "object" o))
(trace-begin (trace-begin
(trace (inspect-event o)) (trace (inspect-event o))
(let loop ([c (object-ref o)] (let ([o* (if (has-original-object? o) (original-object o) o)])
[skipped? #f]) (let loop ([c (object-ref o)]
(if (struct? ((class-insp-mk c))) [skipped? #f])
;; current objec can inspect this object (if (struct? ((class-insp-mk c)))
(values c skipped?) ;; current objec can inspect this object
(if (zero? (class-pos c)) (values c skipped?)
(values #f #t) (if (zero? (class-pos c))
(loop (vector-ref (class-supers c) (sub1 (class-pos c))) #t)))))) (values #f #t)
(loop (vector-ref (class-supers c) (sub1 (class-pos c))) #t)))))))
(define (to-sym s) (define (to-sym s)
(if (string? s) (if (string? s)