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

Get rid of the loop that's no longer a loop, and also add in the necessary

Browse Source 
object unwrapping.

svn: r18288
This commit is contained in:
Stevie Strickland 2010-02-23 04:13:09 +00:00
parent e9a6aa31ca
commit e4f7f0032e
1 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3836,18 +3836,15 @@
obj)) obj))
(trace-begin (trace-begin
(trace (set-event obj id val)) (trace (set-event obj id val))
(let loop ([obj obj]) (let* ([cls (object-ref obj)]
(let* ([cls (object-ref obj)] [field-ht (class-field-ht cls)]
[field-ht (class-field-ht cls)] [index (hash-ref field-ht id #f)])
[index (hash-ref field-ht id #f)]) (if index
(cond ((vector-ref (class-ext-field-sets cls) index) (unwrap-object obj) val)
[index (raise-mismatch-error
((vector-ref (class-ext-field-sets cls) index) obj val)] 'get-field
[else (format "expected an object that has a field named ~s, got " id)
(raise-mismatch-error obj)))))
'get-field
(format "expected an object that has a field named ~s, got " id)
obj)])))))
(define-syntaxes (get-field get-field-traced) (define-syntaxes (get-field get-field-traced)
(let () (let ()
@ -3875,18 +3872,15 @@
obj)) obj))
(trace-begin (trace-begin
(trace (get-event obj id)) (trace (get-event obj id))
(let loop ([obj obj]) (let* ([cls (object-ref obj)]
(let* ([cls (object-ref obj)] [field-ht (class-field-ht cls)]
[field-ht (class-field-ht cls)] [index (hash-ref field-ht id #f)])
[index (hash-ref field-ht id #f)]) (if index
(cond ((vector-ref (class-ext-field-refs cls) index) (unwrap-object obj))
[index (raise-mismatch-error
((vector-ref (class-ext-field-refs cls) index) obj)] 'get-field
[else (format "expected an object that has a field named ~s, got " id)
(raise-mismatch-error obj)))))
'get-field
(format "expected an object that has a field named ~s, got " id)
obj)])))))
(define-syntaxes (field-bound? field-bound?-traced) (define-syntaxes (field-bound? field-bound?-traced)
(let () (let ()