Fix for search in properties

2018-06-12 12:45:26 +02:00
parent 1297f16ff6
commit a7a8534e44
1 changed files with 3 additions and 1 deletions
@@ -158,7 +158,9 @@ package body Alire.Conditional_Trees is
               Append (Col, Value_Inner (Inner).Value.Constant_Reference);
            when Condition =>
               Visit (Conditional_Inner (Inner).Then_Value.Constant_Reference);
-               Visit (Conditional_Inner (Inner).Else_Value.Constant_Reference);
+               if not Conditional_Inner (Inner).Else_Value.Is_Empty then
+                  Visit (Conditional_Inner (Inner).Else_Value.Constant_Reference);
+               end if;
            when Vector =>
               if Vector_Inner (Inner).Conjunction = Anded then
                  for Child of Vector_Inner (Inner).Values loop