Anonymous

: gl-program-shaders ( program -- shaders )
    \ gl-program-shaders entering dup gl-program-shaders-length 
    [
        dup "GLuint" <c-array>
        0 <int> over glGetAttachedShaders
    ] keep c-uint-array> \ gl-program-shaders leaving ;