become-program-instance ( program-instance new-program-instance -- )

Vocabulary

gpu.shaders.private

Inputs

program-instance	an object
new-program-instance	an object

Outputs

None

Definition

USING: accessors kernel opengl.gl ;

IN: gpu.shaders.private

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