change ERROR: words from throw-foo back to foo.

[factor.git] / extra / curses / curses.factor

diff --git a/extra/curses/curses.factor b/extra/curses/curses.factor
index c089cea91fdc34a3f16626d567415ac6718523d0..a6629650ad107cd92250d7f3a2ee70fd2eae7448 100644 (file)
--- a/extra/curses/curses.factor
+++ b/extra/curses/curses.factor
@@ -179,8 +179,8 @@ ERROR: unsupported-curses-terminal ;
 : >BOOLEAN ( ? -- TRUE/FALSE ) ffi:TRUE ffi:FALSE ? ; inline
 
 : curses-pointer-error ( ptr/f -- ptr )
-    [ throw-curses-failed ] unless* ; inline
-: curses-error ( n -- ) ffi:ERR = [ throw-curses-failed ] when ;
+    [ curses-failed ] unless* ; inline
+: curses-error ( n -- ) ffi:ERR = [ curses-failed ] when ;
 
 PRIVATE>
 
@@ -262,7 +262,7 @@ PRIVATE>
     [ current-window ] dip with-variable ; inline
 
 : with-curses ( window quot -- )
-    curses-ok? [ throw-unsupported-curses-terminal ] unless
+    curses-ok? [ unsupported-curses-terminal ] unless
     [
         '[
             ffi:initscr curses-pointer-error