nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Rod Kay
2022-08-28 22:32:27 +10:00
parent 792830405d
commit 66e650b86d
1 changed files with 1 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
1-base/lace/source/text/lace-text-forge.adb
View File

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