SCM Repository
[smlnj] Diff of /sml/trunk/src/cm/depend/indegree.sml
Diff of /sml/trunk/src/cm/depend/indegree.sml
Parent Directory
| 
Revision Log
| 
Patch
| 41 |
end |
end |
| 42 |
|
|
| 43 |
fun impexp ((n, _), m) = fsb snode (n, m) |
fun impexp ((n, _), m) = fsb snode (n, m) |
|
val m = SymbolMap.foldl impexp M.empty exports |
|
|
fun show (i, u) = |
|
|
Say.dsay [SmlInfo.descr i, ": ", Int.toString u, "\n"] |
|
| 44 |
in |
in |
| 45 |
M.appi show m; |
SymbolMap.foldl impexp M.empty exports |
|
m |
|
| 46 |
end |
end |
| 47 |
end |
end |
| 48 |
end |
end |
|
|
Legend:
| Removed from v.455 |
|
| changed lines |
| |
Added in v.456 |
|
|
