change add-init-hook to add-startup-hook, new add-shutdown-hook word

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