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

[factor.git] / extra / cursors / cursors.factor

diff --git a/extra/cursors/cursors.factor b/extra/cursors/cursors.factor
index b552ff1360eb02c9d3a3be87184596c61b8f063e..d4ad091078bbe114c5788e48fc6c647ef6157b5f 100644 (file)
--- a/extra/cursors/cursors.factor
+++ b/extra/cursors/cursors.factor
@@ -69,7 +69,7 @@ M: input-cursor cursor-key-value-unsafe cursor-key-value ; inline
 M: input-cursor cursor-key-value
     dup cursor-valid?
     [ cursor-key-value-unsafe ]
-    [ throw-invalid-cursor ] if ; inline
+    [ invalid-cursor ] if ; inline
 
 : cursor-key ( cursor -- key ) cursor-key-value drop ;
 : cursor-value ( cursor -- key ) cursor-key-value nip ;
@@ -91,7 +91,7 @@ M: output-cursor set-cursor-value-unsafe set-cursor-value ; inline
 M: output-cursor set-cursor-value
     dup cursor-valid?
     [ set-cursor-value-unsafe ]
-    [ throw-invalid-cursor ] if ; inline
+    [ invalid-cursor ] if ; inline
 
 !
 ! stream cursors