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

Corrected bug in not catching initialization error

Browse Source 
svn: r5782
This commit is contained in:
Kathy Gray 2007-03-17 13:32:46 +00:00
parent 04d087eb24
commit 18e5f67065
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/profj/check.ss
View File

@ -2006,7 +2006,7 @@
(handle-call-error (handle-call-error
(lambda (exn) (lambda (exn)
(when (not (access? expr)) (raise exn)) (when (not (access? expr)) (raise exn))
(when (or (field-access? (access-name expr)) (local-access? expr)) (raise exn)) (when (or (field-access? (access-name expr)) (local-access? (access-name expr))) (raise exn))
(if (eq? level 'full) (if (eq? level 'full)
(let ((record (car (find-static-class (append (access-name expr) (list name)) (let ((record (car (find-static-class (append (access-name expr) (list name))
level type-recs)))) level type-recs))))