let
set_action_bindings kf ki pre post vals =
Actions
.replace (kf,ki,pre,post) vals