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