CVS difference for ai05s/ai05-0148-1.txt

--- ai05s/ai05-0148-1.txt	2009/11/24 06:09:31	1.8
+++ ai05s/ai05-0148-1.txt	2011/04/26 22:18:27	1.9
@@ -41,7 +41,7 @@
    end record;
 
 
-   function Reverse(List : access Root_Node'Class) return access Root_Node'Class is
+   function Reverse_List(List : access Root_Node'Class) return access Root_Node'Class is
      -- Reverse the order of the nodes of the list
        Result : access Root_Node'Class := null;
        This_Node : access Root_Node'Class := List;
@@ -53,7 +53,6 @@
          declare
            Next_Node : constant access Root_Node'Class := This_Node.Next;
          begin
-           Next_Node := This_Node.Next;
            This_Node.Next := Result;  -- Fails accessibility check
            Result := This_Node;
 
@@ -62,7 +61,7 @@
          end;
        end loop;
        return Result;  -- Fails accessibility check
-   end Reverse;
+   end Reverse_List;
 
 As indicated in comments, assigning into a local variable is
 no problem, but assigning *from* it is very likely to fail an