src/packrat-traits.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20


package body Packrat.Traits is


    function "<"
           (Left, Right : in Element_Array)
        return Boolean
    is
        function LT is new Array_Less_Than
           (Base_Type  => Element_Type,
            Array_Type => Element_Array);
    begin
        return LT (Left, Right);
    end "<";


end Packrat.Traits;