kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 18:18:51 +03:00
Code Issues Projects Releases Wiki Activity

Ada: Fix Concat with null list result.

Browse Source
This commit is contained in:
Chris M Moore 2015-07-09 18:42:36 +01:00
parent ebb6e9d3c5
commit f0bb4b427d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ada/types.adb
View File

@ -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.