let
vtable_by_name =
fun
db name
->
List
.find (
fun
vt
->
vt.vt_name = name) db.db_vtables