From afbf4e9cb2d5a9b6aae8310888ee9e42a9027ea1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 4 Sep 2010 18:49:27 -0700
Subject: [PATCH] io.sockets: make addrspecs immutable

---
 basis/io/sockets/secure/secure.factor | 2 +-
 basis/io/sockets/sockets.factor       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/io/sockets/secure/secure.factor b/basis/io/sockets/secure/secure.factor
index 9f7a4f822f..fbbea7c4c3 100644
--- 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 9a8b352a1b..30449f066f 100644
--- 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 ;