(bind-func ocv_scheme_release_object
(lambda (obj:<i8*,i32>*)
(let ((type (tref obj 1)))
(cond ((= type OCV_XTM_VideoCapture_T) (ocv_close (convert obj ocv_VideoCapture*)))
((= type OCV_XTM_VideoWriter_T) (ocv_close (convert obj ocv_VideoWriter*)))
(else (println "Error - bad ocv type:" type))))))