;; ip4 only (bind-func interface_address (lambda (name) (let ((ifs:ifaddrs** (alloc))) (pset! ifs 0 null) (getifaddrs ifs) (_interface_address name (pref ifs 0)))))