diff --git a/yaml_types.f90 b/yaml_types.f90
index 2309aec..34c6617 100644
--- a/yaml_types.f90
+++ b/yaml_types.f90
@@ -98,7 +98,6 @@ subroutine node_dump(self,unit,indent)
       procedure :: set_path => list_set_path
       procedure :: finalize => list_finalize
       procedure :: size     => list_size
-      final :: list_destroy
    end type
 
    type type_error
@@ -611,19 +610,5 @@ function list_size(self) result(n)
      enddo
      
    end function list_size
-   
-   subroutine list_destroy(self)
-     type(type_list), intent(inout) :: self
-     
-     type (type_list_item),pointer :: item, next
-     
-     item => self%first
-     do while (associated(item))
-        next => item%next
-        deallocate(item)
-        item => next
-     end do
-     nullify(self%first)
-   end subroutine
 
 end module yaml_types