(bind-func json_object_print_keys (lambda (object:json_t*) (if (json_object_p object) (json_obj_iterator object (json_object_iter object)) (begin (printf "Error: argument is not a JSON object.%\n") 0)) 0))