diff options
| -rw-r--r-- | src/packrat-parse_graphs.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/packrat-parse_graphs.adb b/src/packrat-parse_graphs.adb index 2d5c2a5..99ce360 100644 --- a/src/packrat-parse_graphs.adb +++ b/src/packrat-parse_graphs.adb @@ -206,6 +206,9 @@ package body Packrat.Parse_Graphs is Current : Traits.Tokens.Token_Type; Result : SU.Unbounded_String; begin + if Container.Is_Empty then + return ""; + end if; for Iter in Mapping.Iterate loop SU.Append (Result, Traits.Label_Enum'Image (Enum_Node_Maps.Key (Iter)) & Latin.LF); for Node of Enum_Node_Maps.Element (Iter) loop |