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

missing map argument added

Browse Source 
svn: r3379
This commit is contained in:
Matthew Flatt 2006-06-16 12:10:34 +00:00
parent 19b1d2d577
commit 140ea1519e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/profj/types.ss
View File

@ -637,7 +637,8 @@
(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)))))]) (send type-recs get-class-record iface))))
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)))))