gpu.shaders: use ERROR:

diff --git a/extra/gpu/shaders/shaders.factor b/extra/gpu/shaders/shaders.factor
index 19e61fe616654461f39d56b5112ae69fb55a9f8e..0c52fc0aa0c4ed4786732f3b08a0d78bd9864fde 100755 (executable)
--- a/extra/gpu/shaders/shaders.factor
+++ b/extra/gpu/shaders/shaders.factor
@@ -451,16 +451,16 @@ M: vertex-array-collection vertex-array-buffers
 : vertex-array-buffer ( vertex-array: vertex-array -- vertex-buffer: buffer )
     vertex-array-buffers first ; inline
 
-TUPLE: compile-shader-error shader log ;
-TUPLE: link-program-error program log ;
+ERROR: compile-shader-error shader log ;
+ERROR: link-program-error program log ;
 
 : throw-compile-shader-error ( shader instance -- * )
-    [ dup ] dip [ gl-shader-info-log ] [ delete-gl-shader ] bi replace-log-line-numbers
-    \ compile-shader-error boa throw ;
+    [ dup ] dip [ gl-shader-info-log ] [ delete-gl-shader ] bi
+    replace-log-line-numbers compile-shader-error ;
 
 : throw-link-program-error ( program instance -- * )
-    [ dup ] dip [ gl-program-info-log ] [ delete-gl-program ] bi replace-log-line-numbers
-    \ link-program-error boa throw ;
+    [ dup ] dip [ gl-program-info-log ] [ delete-gl-program ] bi
+    replace-log-line-numbers link-program-error ;
 
 DEFER: <shader-instance>