From 18e5f670657a7ef3745f5a5dd3616ee25cedab8b Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Sat, 17 Mar 2007 13:32:46 +0000 Subject: [PATCH] Corrected bug in not catching initialization error svn: r5782 --- collects/profj/check.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/profj/check.ss b/collects/profj/check.ss index 25d9df8a91..f6b7e7c45a 100644 --- a/collects/profj/check.ss +++ b/collects/profj/check.ss @@ -2006,7 +2006,7 @@ (handle-call-error (lambda (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) (let ((record (car (find-static-class (append (access-name expr) (list name)) level type-recs))))