io.sockets: make addrspecs immutable

diff --git a/basis/io/sockets/secure/secure.factor b/basis/io/sockets/secure/secure.factor
index 9f7a4f822f054ef918fd728032c81ddb01d4f736..fbbea7c4c310ccf3158d2ae5695638ff56494a79 100644 (file)
--- a/basis/io/sockets/secure/secure.factor
+++ b/basis/io/sockets/secure/secure.factor
@@ -39,7 +39,7 @@ HOOK: <secure-context> secure-socket-backend ( config -- context )
         with-disposal
     ] with-scope ; inline
 
-TUPLE: secure addrspec ;
+TUPLE: secure { addrspec read-only } ;
 
 C: <secure> secure
 

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 9a8b352a1bd69814c24dddf7baeb1c2e1b1daed3..30449f066f3908907df8898d4fb0496c3cf89cb9 100644 (file)
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -51,7 +51,7 @@ HOOK: addrspec-of-family os ( af -- addrspec )
 
 PRIVATE>
 
-TUPLE: local path ;
+TUPLE: local { path read-only } ;
 
 : <local> ( path -- addrspec )
     normalize-path local boa ;