   defp short_circuit_helper([h|[]], table, _) do
     meaning(h, table)
   end
-
   defp short_circuit_helper([h|t], table, func) do
     result = meaning(h, table)
 

  defp lookup_in_entry_help(name, [], _, error_function) do
    error_function.(name)
  end

  defp lookup_in_entry_help(name, [name|_], [value|_], _) do
    value
  end

  defp lookup_in_entry_help(name, [_|keys], [_|values], error_function) do
    lookup_in_entry_help(name, keys, values, error_function)
  end

  def atom_to_action(n) when is_number(n) do
    &Scheme.Interpreter.const_action/2
  end
  def atom_to_action(e) do
    case is_member(e, @primitives) do
      true  -> &Scheme.Interpreter.const_action/2
