fix for bad renames.

diff --git a/basis/opengl/annotations/annotations-docs.factor b/basis/opengl/annotations/annotations-docs.factor
index 98b5bcc6276054d47463ca6d8ce19e8df644de83..d6a73bf83ff80c43f403038b79fbcdfde2c515c7 100644 (file)
--- a/basis/opengl/annotations/annotations-docs.factor
+++ b/basis/opengl/annotations/annotations-docs.factor
@@ -27,14 +27,14 @@ HELP: log-gl-errors
 { $description "Annotate every OpenGL function to log using " { $link log-gl-error } " if the function results in an error. Use " { $link reset-gl-functions } " to reverse this operation." } ;
 
 HELP: reset-gl-functions
-{ $description "Removes any annotations from all OpenGL functions, such as those applied by " { $link gl-errors } " or " { $link log-gl-errors } "." } ;
+{ $description "Removes any annotations from all OpenGL functions, such as those applied by " { $link throw-gl-errors } " or " { $link log-gl-errors } "." } ;
 
-{ gl-errors gl-error log-gl-errors log-gl-error clear-gl-error-log reset-gl-functions } related-words
+{ throw-gl-errors gl-error log-gl-errors log-gl-error clear-gl-error-log reset-gl-functions } related-words
 
 ARTICLE: "opengl.annotations" "OpenGL error reporting"
 "The " { $vocab-link "opengl.annotations" } " vocabulary provides some tools for tracking down GL errors:"
 { $subsections
-    gl-errors
+    throw-gl-errors
     log-gl-errors
     clear-gl-error-log
     reset-gl-functions

diff --git a/extra/google/translate/translate.factor b/extra/google/translate/translate.factor
index 7a7d19513711198e760ffae095f2430d2dd7c87a..2738801ef2892f79033cb295189a78a1f5679856 100644 (file)
--- a/extra/google/translate/translate.factor
+++ b/extra/google/translate/translate.factor
@@ -26,8 +26,8 @@ TUPLE: response-error response error ;
 : check-response ( response -- response )
     "responseStatus" over at {
         { 200 [ ] }
-        { 400 [ response-error ] }
-        [ drop response-error ]
+        { 400 [ throw-response-error ] }
+        [ drop throw-response-error ]
     } case ;
 
 : query-response>text ( response -- text )

diff --git a/extra/gpu/shaders/shaders.factor b/extra/gpu/shaders/shaders.factor
index 108bfa1076a239494d28dc00db571d34b633dfb6..559f46f5602c6b3dfd718e29b00fa43958a0f74b 100755 (executable)
--- a/extra/gpu/shaders/shaders.factor
+++ b/extra/gpu/shaders/shaders.factor
@@ -473,7 +473,7 @@ DEFER: <shader-instance>
     [ ] [ source>> ] [ kind>> gl-shader-kind ] tri <gl-shader>
     dup gl-shader-ok?
     [ swap world get \ shader-instance boa window-resource ]
-    [ compile-shader-error ] if ;
+    [ throw-compile-shader-error ] if ;
 
 : (link-program) ( program shader-instances -- program-instance )
     '[ _ [ handle>> ] map ]
@@ -488,7 +488,7 @@ DEFER: <shader-instance>
     dup gl-program-ok?  [
         [ swap world get \ program-instance boa |dispose dup verify-feedback-format ]
         with-destructors window-resource
-    ] [ link-program-error ] if ;
+    ] [ throw-link-program-error ] if ;
 
 : link-program ( program -- program-instance )
     dup shaders>> [ <shader-instance> ] map (link-program) ;

diff --git a/extra/zeromq/zeromq.factor b/extra/zeromq/zeromq.factor
index 04c2299d09449768d5dd183547b0afc8046de268..b92e95f85adc6c1b7444eb2b660a635dd1a664d2 100644 (file)
--- a/extra/zeromq/zeromq.factor
+++ b/extra/zeromq/zeromq.factor
@@ -13,7 +13,7 @@ TUPLE: zmq-error n string ;
     zmq_errno dup zmq_strerror zmq-error boa throw ; inline
 
 : check-zmq-error ( retval -- )
-    [ zmq-error ] unless-zero ; inline
+    [ throw-zmq-error ] unless-zero ; inline
 
 : zmq-version ( -- version )
     { int int int } [ zmq_version ] with-out-parameters 3array ;
@@ -62,7 +62,7 @@ TUPLE: zmq-socket underlying ;
 
 : <zmq-socket> ( context type -- socket )
     [ underlying>> ] dip zmq_socket
-    dup [ zmq-error ] unless
+    dup [ throw-zmq-error ] unless
     zmq-socket boa ;
 
 M: zmq-socket dispose
@@ -90,11 +90,11 @@ M: zmq-socket zmq-setopt
 
 : zmq-sendmsg ( socket msg flags -- )
     [ [ underlying>> ] bi@ ] dip zmq_sendmsg
-    0 < [ zmq-error ] when ;
+    0 < [ throw-zmq-error ] when ;
 
 : zmq-recvmsg ( socket msg flags -- )
     [ [ underlying>> ] bi@ ] dip zmq_recvmsg
-    0 < [ zmq-error ] when ;
+    0 < [ throw-zmq-error ] when ;
 
 : zmq-send ( socket byte-array flags -- )
     [ byte-array>zmq-message ] dip