From a54293ede24eae0f55727f9fb5cc92cc87b95d93 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Fri, 16 Jun 2006 15:26:18 +0000 Subject: [PATCH] Correction to iface-depth svn: r3380 --- collects/profj/types.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/profj/types.ss b/collects/profj/types.ss index f2d6a613d9..fc04e05262 100644 --- a/collects/profj/types.ss +++ b/collects/profj/types.ss @@ -637,10 +637,10 @@ (let ([iface-tree (map (lambda (iface) (cons iface (class-record-parents - (send type-recs get-class-record iface)))) + (get-record (send type-recs get-class-record iface) + type-recs)))) ifaces)]) (apply min (map (lambda (i-list) (depth elt i-list)) iface-tree))))) - ;conversion-steps: type type -> int (define (conversion-steps from to type-recs)