Author: iratqq
Date: Thu Feb 26 23:00:12 2009
New Revision: 5867
Modified:
trunk/scm/socket.scm
Log:
* scm/socket.scm (call-with-sockaddr-storage):
- New function.
Modified: trunk/scm/socket.scm
==============================================================================
--- trunk/scm/socket.scm (original)
+++ trunk/scm/socket.scm Thu Feb 26 23:00:12 2009
@@ -77,5 +77,10 @@
(delete-sockaddr-un sun)
ret)))
+(define (call-with-sockaddr-storage thunk)
+ (let* ((ss (make-sockaddr-storage))
+ (ret (thunk ss)))
+ (delete-sockaddr-storage ss)
+ ret))
(define shutdown-how-alist (shutdown-how-alist?))
