suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correction to iface-depth

Browse Source 
svn: r3380
This commit is contained in:
Kathy Gray 2006-06-16 15:26:18 +00:00
parent 140ea1519e
commit a54293ede2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profj/types.ss
View File

@ -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)