steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gpu.shaders: use ERROR:

db4
John Benediktsson 2013-03-24 14:20:32 -07:00
parent 72be6c69be
commit 394af82b1f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/gpu/shaders/shaders.factor
View File

@ -451,16 +451,16 @@ M: vertex-array-collection vertex-array-buffers
: vertex-array-buffer ( vertex-array: vertex-array -- vertex-buffer: buffer ) : vertex-array-buffer ( vertex-array: vertex-array -- vertex-buffer: buffer )
vertex-array-buffers first ; inline vertex-array-buffers first ; inline
TUPLE: compile-shader-error shader log ; ERROR: compile-shader-error shader log ;
TUPLE: link-program-error program log ; ERROR: link-program-error program log ;
: throw-compile-shader-error ( shader instance -- * ) : throw-compile-shader-error ( shader instance -- * )
[ dup ] dip [ gl-shader-info-log ] [ delete-gl-shader ] bi replace-log-line-numbers [ dup ] dip [ gl-shader-info-log ] [ delete-gl-shader ] bi
\ compile-shader-error boa throw ; replace-log-line-numbers compile-shader-error ;
: throw-link-program-error ( program instance -- * ) : throw-link-program-error ( program instance -- * )
[ dup ] dip [ gl-program-info-log ] [ delete-gl-program ] bi replace-log-line-numbers [ dup ] dip [ gl-program-info-log ] [ delete-gl-program ] bi
\ link-program-error boa throw ; replace-log-line-numbers link-program-error ;
DEFER: <shader-instance> DEFER: <shader-instance>