become-shader-instance ( shader-instance new-shader-instance -- )

Vocabulary

gpu.shaders.private

Inputs

shader-instance	an object
new-shader-instance	an object

Outputs

None

Definition

USING: accessors kernel opengl.gl ;

IN: gpu.shaders.private

: become-shader-instance
    ( shader-instance new-shader-instance -- )
    handle>> [ swap glDeleteShader ] curry change-handle drop ;