From 140ea1519e660da00ed210cdbb84e3ea686abfe4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 16 Jun 2006 12:10:34 +0000 Subject: [PATCH] missing map argument added svn: r3379 --- collects/profj/types.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/profj/types.ss b/collects/profj/types.ss index 7102b118cc..f2d6a613d9 100644 --- a/collects/profj/types.ss +++ b/collects/profj/types.ss @@ -637,7 +637,8 @@ (let ([iface-tree (map (lambda (iface) (cons iface (class-record-parents - (send type-recs get-class-record iface)))))]) + (send type-recs get-class-record iface)))) + ifaces)]) (apply min (map (lambda (i-list) (depth elt i-list)) iface-tree)))))