(bind-func json_incref (lambda (json:json_t*) (if (and (not (null? json)) (<> (tref json 1) -1)) (tset! json 1 (+ (tref json 1) 1))) json))