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-socket-backend ( config -- context ) with-disposal ] with-scope ; inline -TUPLE: secure addrspec ; +TUPLE: secure { addrspec read-only } ; C: 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 } ; : ( path -- addrspec ) normalize-path local boa ;