with-bound-buffer ( ..a buffer target quot: ( ..a -- ..b ) -- ..b )

Vocabulary

gpu.buffers

Inputs

buffer	an object
target	an object
quot	a quotation with stack effect ( ..a -- ..b )

Outputs

None

Definition

USING: gpu.buffers.private kernel opengl.gl ;

IN: gpu.buffers

:: with-bound-buffer
    ( ..a buffer target quot: ( ..a -- ..b ) -- ..b )
    target gl-target buffer glBindBuffer quot call ; inline