diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-07-03 16:57:07 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-03 16:57:07 +1000 |
| commit | 8b6cc411cceb51b26579f8fcf94424b4842ef0bf (patch) | |
| tree | 779ae4f76df38e6c6cd745bd63a5f44a9a169191 /src/preferences.adb | |
| parent | 18b2b85a28c4e8d59cd564612bb7f60019c53051 (diff) | |
Changed build from makefile to gpr file
Diffstat (limited to 'src/preferences.adb')
| -rw-r--r-- | src/preferences.adb | 2 |
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; |