run bootstrap and startup hooks inside a with-destructors. use &dispose instead...

[factor.git] / basis / io / sockets / unix / unix.factor

diff --git a/basis/io/sockets/unix/unix.factor b/basis/io/sockets/unix/unix.factor
index 583fd8fba9735c7dd375a8de652cc5bb6eccac77..d2df4d9e13947a3bb86d3f93031e6d8ecbaf5c88 100755 (executable)
--- a/basis/io/sockets/unix/unix.factor
+++ b/basis/io/sockets/unix/unix.factor
@@ -113,8 +113,7 @@ SYMBOL: receive-buffer
 
 CONSTANT: packet-size 65536
 
-[ packet-size malloc receive-buffer set-global ] "io.sockets.unix" add-startup-hook
-[ receive-buffer get-global free ] "io.sockets.unix" add-shutdown-hook
+[ packet-size malloc &free receive-buffer set-global ] "io.sockets.unix" add-startup-hook
 
 :: do-receive ( port -- packet sockaddr )
     port addr>> empty-sockaddr/size :> len :> sockaddr