summaryrefslogtreecommitdiff
path: root/body/fltk-environment.adb
diff options
context:
space:
mode:
Diffstat (limited to 'body/fltk-environment.adb')
-rw-r--r--body/fltk-environment.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/body/fltk-environment.adb b/body/fltk-environment.adb
index 22cf676..58c13d6 100644
--- a/body/fltk-environment.adb
+++ b/body/fltk-environment.adb
@@ -392,7 +392,7 @@ package body FLTK.Environment is
return User;
end if;
exception
- when Chk.Assertion_Error => raise Internal_FLTK_Error;
+ when Chk.Assertion_Error => raise Constraint_Error;
end To_Scope;