mirror of
https://github.com/kanaka/mal.git
synced 2024-09-21 02:27:10 +03:00
Ada: Fix Concat with null list result.
This commit is contained in:
parent
ebb6e9d3c5
commit
f0bb4b427d
@ -737,8 +737,12 @@ package body Types is
|
|||||||
Last_Node_P : Node_Ptr := null;
|
Last_Node_P : Node_Ptr := null;
|
||||||
begin
|
begin
|
||||||
Rest_List := Rest_Handle;
|
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
|
while not Is_Null (Rest_List) loop
|
||||||
|
|
||||||
-- Find the next list in the list...
|
-- Find the next list in the list...
|
||||||
List := Deref_List (Car (Rest_List)).all;
|
List := Deref_List (Car (Rest_List)).all;
|
||||||
-- Duplicate nodes to its contents.
|
-- Duplicate nodes to its contents.
|
||||||
|
Loading…
Reference in New Issue
Block a user