From 00269125893f47d7cca02b101de39d62dad3049b Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Thu, 20 Sep 2007 03:07:02 +0000 Subject: [PATCH] svn: r7390 --- collects/profj/build-info.ss | 9 +++++---- collects/profj/to-scheme.ss | 7 +++++-- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/collects/profj/build-info.ss b/collects/profj/build-info.ss index 407c1c407b..c517179b90 100644 --- a/collects/profj/build-info.ss +++ b/collects/profj/build-info.ss @@ -786,7 +786,10 @@ (map (lambda (n sc) (get-parent-record n sc iname level type-recs)) super-names (header-extends info))) - (object-methods (class-record-methods (send type-recs get-class-record object-type))) + (object-methods + (filter (lambda (m) + (not (eq? 'ctor (method-record-rtype m)))) + (class-record-methods (send type-recs get-class-record object-type)))) (members (def-members iface)) (reqs (map (lambda (name-list) (if (= (length name-list) 1) @@ -831,9 +834,7 @@ #f #t (apply append (cons f (map class-record-fields super-records))) - (if (null? super-records) - object-methods - (apply append (cons m (map class-record-methods super-records)))) + (apply append (cons m (map class-record-methods super-records))) (apply append (cons i (map class-record-inners super-records))) (apply append (cons (map class-record-name super-records) (map class-record-parents super-records))) diff --git a/collects/profj/to-scheme.ss b/collects/profj/to-scheme.ss index 4ee1dfa310..0f104777f9 100644 --- a/collects/profj/to-scheme.ss +++ b/collects/profj/to-scheme.ss @@ -1418,8 +1418,11 @@ ,@(create-static-fields static-field-names (members-field members)) ,@(append (generate-wrappers (class-name) "Object" - (class-record-methods - (send type-recs get-class-record (list (class-name)))) + (append + (class-record-methods + (send type-recs get-class-record (list (class-name)))) + (class-record-methods + (send type-recs get-class-record (list "Object" "java" "lang")))) null) (generate-contract-defs (class-name))) )