summaryrefslogtreecommitdiff
path: root/src/preferences.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/preferences.adb')
-rw-r--r--src/preferences.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/preferences.adb b/src/preferences.adb
index 36cc5ea..6868042 100644
--- a/src/preferences.adb
+++ b/src/preferences.adb
@@ -63,7 +63,7 @@ package body Preferences is
Pref_Loop :
for I in Above_Range loop
Above_IC (Above_Input, Integer (I), Working_Index, Working_Count);
- exit when Working_Count /= 1;
+ exit Pref_Loop when Working_Count /= 1;
Extracted := Extracted + 1;
for C of Above_Ballot.Element (Integer (Working_Index)) loop
exit Pref_Loop when Formal_Index > Preference_Range'Last;