From f0bb4b427d7229312d9e83c667e6ccb351451271 Mon Sep 17 00:00:00 2001
From: Chris M Moore <zmower@ntlworld.com>
Date: Thu, 9 Jul 2015 18:42:36 +0100
Subject: [PATCH] Ada: Fix Concat with null list result.

---
 ada/types.adb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ada/types.adb b/ada/types.adb
index 565fe90f..68659052 100644
--- a/ada/types.adb
+++ b/ada/types.adb
@@ -737,8 +737,12 @@ package body Types is
       Last_Node_P : Node_Ptr := null;
    begin
       Rest_List := Rest_Handle;
-      --Rest_List := Deref_List (Rest_Handle).all;
+
+      -- Set the result to the null list.
+      Res_List_Handle := New_List_Mal_Type (List_List);
+
       while not Is_Null (Rest_List) loop
+
          -- Find the next list in the list...
          List := Deref_List (Car (Rest_List)).all;
          -- Duplicate nodes to its contents.