(bind-func create_shadertoy_shader (lambda (vsource:i8* fsource:i8*) (let ((res (ShaderProgram_create vsource fsource))) (if (not (< res 0)) (begin (set! sp res) res) res))))