From c6fdf17ae2d98566a75664eb0a173593f18e0bc4 Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Fri, 28 Apr 2023 21:56:21 +1000
Subject: [PATCH] gel.Sprite: Rid ".all'Access" conversion from an access
 variable.

---
 4-high/gel/source/gel-sprite.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/4-high/gel/source/gel-sprite.adb b/4-high/gel/source/gel-sprite.adb
index c0b9768..664f043 100644
--- a/4-high/gel/source/gel-sprite.adb
+++ b/4-high/gel/source/gel-sprite.adb
@@ -156,7 +156,7 @@ is
       while not Self.child_Joints.is_Empty
       loop
          declare
-            child_Sprite : constant Sprite.view := Self.child_Joints.Last_Element.Sprite_B.all'Access;
+            child_Sprite : constant Sprite.view := Self.child_Joints.last_Element.Sprite_B;
          begin
             Self.detach (child_Sprite);