lace.text.forge: Remove unneeded handling of <CR> line terminators.

This commit is contained in:
Rod Kay
2022-08-28 22:32:27 +10:00
parent 792830405d
commit 66e650b86d

View File

@@ -26,12 +26,7 @@ is
use ada.Characters;
Line : constant String := get_Line (the_File);
begin
if Line (Line'Last) = latin_1.CR
then
append (Pad, Line (Line'First .. Line'Last - 1) & latin_1.LF);
else
append (Pad, Line & latin_1.LF);
end if;
end;
end loop;