let
bkind_sid bk =
match
bk
with
|
Bfct
->
0
|
Bstmt
s
|
Bthen
s
|
Belse
s
|
Bloop
s
->
s.sid