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;
|
||||
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.
|
||||
|
Loading…
Reference in New Issue
Block a user