(bind-func fleet_get_ip_list
(lambda (host port)
(let ((machines (fleet_get_machines host port))
(iplist (list)))
(if (and (not (null? machines)) (> (json_array_size machines) 0))
(set! iplist
(map (lambda (i) (String (json_string_value (json_object_get (json_array_get machines i) "primaryIP"))))
(range 0 (json_array_size machines)))))
iplist)))