Author: iratqq
Date: Sun Feb 8 23:45:50 2009
New Revision: 5835
Modified:
trunk/scm/socket.scm
Log:
* scm/socket.scm (call-with-sockaddr-un):
- Return from thunk.
Modified: trunk/scm/socket.scm
==============================================================================
--- trunk/scm/socket.scm (original)
+++ trunk/scm/socket.scm Sun Feb 8 23:45:50 2009
@@ -71,5 +71,6 @@
(sockaddr-set-un-sun-family! sun family)
(sockaddr-set-un-sun-path! sun path)
(let ((ret (thunk sun)))
- (delete-sockaddr-un sun))))
+ (delete-sockaddr-un sun)
+ ret)))
