diff --git a/collects/profj/to-scheme.ss b/collects/profj/to-scheme.ss index 6d932d3353..f038d1aa5d 100644 --- a/collects/profj/to-scheme.ss +++ b/collects/profj/to-scheme.ss @@ -2257,7 +2257,7 @@ (javaRuntime:nullError 'field) (send ,expr ,(translate-id field-string field-src))) (build-src src)))) - ((and (eq? (var-access-access access) 'private) (or (static-method) (inner-class))) + ((and (eq? (var-access-access access) 'private) #;(or (static-method) (inner-class))) (let* ((id (create-get-name field-string (var-access-class access))) (getter `(send ,expr ,id ,expr)) (get-syntax (if cant-be-null? diff --git a/collects/tests/profj/advanced-tests.ss b/collects/tests/profj/advanced-tests.ss index 171ad59a23..3f7c2ceb77 100644 --- a/collects/tests/profj/advanced-tests.ss +++ b/collects/tests/profj/advanced-tests.ss @@ -347,6 +347,16 @@ class WeeklyPlanner{ (list (make-java-string "llo")) "Test of substring") + (interact-test + "class A2 { + private int a; + A2(int a) { this.a = a; } + int g(A2 b) { return b.a; } + }" + 'advanced + (list "new A2(1).g(new A2(2))") + (list 2) + "Test of private field access") (report-test-results)