(begin
 (uninstall-suspendable-ports!)
 (let ((result (http-head url)))
   (install-suspendable-ports!)
   result))

Generated by Ricardo Wurmus using scpaste at Wed May 11 00:11:01 2022. CEST. (original)