Fix remove producing invalid AST for do/else/rescue/catch/after

lib/sourceror/identifier.ex

@@ -287,6 +287,32 @@ defmodule Sourceror.Identifier do
   defguard is_atomic_literal(quoted)
            when __is_atomic_literal__(quoted) or __is_atomic_literal_block__(quoted)
 
+  @doc """
+  Checks if the given quoted form is a reserved block name.
+
+  ## Examples
+
+      iex> is_reserved_block_name(:do)
+      true
+
+      iex> is_reserved_block_name(:else)
+      true
+
+      iex> is_reserved_block_name(:catch)
+      true
+
+      iex> is_reserved_block_name(:after)
+      true
+
+      iex> is_reserved_block_name(:rescue)
+      true
+
+      iex> is_reserved_block_name(:foo)
+      false
+  """
+  @spec is_reserved_block_name(Macro.t()) :: Macro.t()
+  defguard is_reserved_block_name(name) when name in [:do, :else, :catch, :after, :rescue]
+
   @doc """
   Checks if the given atom is a valid module alias.
 

lib/sourceror/zipper.ex

@@ -22,6 +22,7 @@ defmodule Sourceror.Zipper do
   """
 
   import Kernel, except: [node: 1]
+  import Sourceror.Identifier, only: [is_reserved_block_name: 1]
 
   alias Sourceror.Zipper, as: Z
 
@@ -197,8 +198,19 @@ defmodule Sourceror.Zipper do
   def remove(%Z{path: nil}),
     do: raise(ArgumentError, message: "Cannot remove the top level node.")
 
-  def remove(%Z{path: path}) do
+  def remove(%Z{path: path} = zipper) do
     case path.left do
+      [{:__block__, meta, [name]} = left | rest] when is_reserved_block_name(name) ->
+        if meta[:format] == :keyword do
+          left
+          |> new(%{path | left: rest})
+          |> do_prev()
+        else
+          zipper
+          |> replace({:__block__, meta, []})
+          |> up()
+        end
+
       [left | rest] ->
         left
         |> new(%{path | left: rest})