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,11 +637,11 @@
(let ([iface-tree (map (lambda (iface) (let ([iface-tree (map (lambda (iface)
(cons iface (cons iface
(class-record-parents (class-record-parents
(send type-recs get-class-record iface)))) (get-record (send type-recs get-class-record iface)
type-recs))))
ifaces)]) ifaces)])
(apply min (map (lambda (i-list) (depth elt i-list)) iface-tree))))) (apply min (map (lambda (i-list) (depth elt i-list)) iface-tree)))))
;conversion-steps: type type -> int ;conversion-steps: type type -> int
(define (conversion-steps from to type-recs) (define (conversion-steps from to type-recs)
#;(printf "conversion-steps ~a ~a~n" from to) #;(printf "conversion-steps ~a ~a~n" from to)