From 22e73779f55b051d34fc0490fbb55045f3f321d9 Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Sun, 8 Dec 2019 10:09:30 +0100
Subject: Snake Drawing

---
 queue.adb | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'queue.adb')

diff --git a/queue.adb b/queue.adb
index 2869984..1bafa1d 100644
--- a/queue.adb
+++ b/queue.adb
@@ -1,19 +1,15 @@
 package body Queue is
 
 	procedure Enqueue(queue: in out T_Queue; data: T_Data) is
-		element: T_List_Node;
 		new_back: T_List;
 	begin
-		element.data := data;
-		element.next := null;
-		new_back := new T_List_Node'(element);
-
+		new_back := new T_List_Node'((data => data,
+		                              next => null));
 		if Empty(queue) then
 			queue.front := new_back;
 			queue.back := new_back;
 			return;
 		end if;
-
 		queue.back.next := new_back;
 		queue.back := new_back;
 	end Enqueue;
-- 
cgit