From aa67ad7a9b827e956fcf603b22293639847ca76a Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Tue, 12 Jun 2007 19:03:58 +0000 Subject: [PATCH] Correcting bug 8742 svn: r6600 --- collects/profj/types.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/profj/types.ss b/collects/profj/types.ss index 088f345a44..7347ee2581 100644 --- a/collects/profj/types.ss +++ b/collects/profj/types.ss @@ -263,7 +263,7 @@ (define (name->type n container-class src level type-recs) (let* ((name (id-string (name-id n))) (path (map id-string (name-path n))) - (rec (get-record (type-exists? name path container-class src level type-recs) type-recs))) + (rec (type-exists? name path container-class src level type-recs))) (if (class-record? rec) (make-ref-type (car (class-record-name rec)) (cdr (class-record-name rec)))