Index: src/natools-s_expressions.ads ================================================================== --- src/natools-s_expressions.ads +++ src/natools-s_expressions.ads @@ -55,10 +55,12 @@ Null_Atom : constant Atom (1 .. 0) := (others => <>); function To_String (Data : in Atom) return String; function To_Atom (Data : in String) return Atom; + function "<" (Left, Right : Atom) return Boolean + renames Ada.Streams."<"; function Less_Than (Left, Right : Atom) return Boolean; -----------------------------