(bind-func xhid_close
(lambda (hid)
(let ((ret:hid_return 0))
(set! ret (hid_close hid))
(if (<> ret 0) (printf "%s\n" (hid_strerror ret)))
(set! ret (hid_cleanup))
(if (<> ret 0) (printf "%s\n" (hid_strerror ret)))
void)))