ncurses 5.2
[ncurses.git] / Ada95 / src / terminal_interface-curses.adb
index 1f536d141c15a673e1298be94249bf72b998c543..698f1c650e925da82540e9e8db0b318e003e8172 100644 (file)
@@ -35,7 +35,7 @@
 ------------------------------------------------------------------------------
 --  Author: Juergen Pfeifer <juergen.pfeifer@gmx.net> 1996
 --  Version Control:
---  $Revision: 1.25 $
+--  $Revision: 1.26 $
 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 with System;
@@ -922,7 +922,7 @@ package body Terminal_Interface.Curses is
          when Non_Blocking => Time := 0;
          when Delayed      =>
             if Amount = 0 then
-               raise CONSTRAINT_ERROR;
+               raise Constraint_Error;
             end if;
             Time := C_Int (Amount);
       end case;