(bind-func toString (lambda (vao:VAO*) (let ((s:i8* (salloc 256))) (if (null? vao) (sprintf s "<VAO: 0x0>") (sprintf s "<VAO: id %d>" (tref vao 0))) (String s))))