let eval_local_var x = try Hashtbl.find local_vars x with _ -> complain_soft(); if !_pe then epf "{Unbound variable: `%s'}\n%!" (snippet x 15); failwith "Unbound variable"