(bind-func ShaderProgram_print_info_log
(let ((max_log_length 4096)
(logbuf:i8* (zalloc max_log_length)))
(lambda (program:ShaderProgram)
(let ((len_ptr (salloc 1 i32)))
(glGetProgramInfoLog program
max_log_length
len_ptr
logbuf)
(printf " Program: %s\n"
(if (= (pref len_ptr 0) 0)
"OK"
logbuf))
(if (= (pref len_ptr 0) 0) 0 1)))))