(define ocv_close (lambda (obj) (if (string? obj) (ocv_scheme_release_window obj) (ocv_scheme_release_object obj))))