1
structure ROOT =
2
struct
3
4
structure Codegen =
5
6
7
fun lookup ((k, v) :: xs) l =
8
(if ((k : string) = l) then SOME v else lookup xs l);
9
10
end; (*struct Codegen*)
11
12
end; (*struct ROOT*)