(bind-func json_decref (lambda (json:json_t*) (if (and (not (null? json)) (<> (tref json 1) -1)) (tset! json 1 (- (tref json 1) 1))) (if (= (tref json 1) 0) (json_delete json)) void))