(xdef 'open-socket  (lambda (num) (tcp-listen num 50 #t)))

From ac.scm ©