fix socket_client_open/3

diff --git a/src/lib/sockets.pl b/src/lib/sockets.pl
index e2b1b7235fbfb398114b67441b08f373ee64937a..2fb3a7fd21487f56f5e351979d6312845dbf1510 100644 (file)
--- a/src/lib/sockets.pl
+++ b/src/lib/sockets.pl
@@ -25,7 +25,7 @@ socket_client_open(Addr, Stream, Options) :-
     builtins:parse_stream_options(Options,
                                   [Alias, EOFAction, Reposition, Type],
                                   socket_client_open/3),
-    '$socket_client_open'(Address, Port, Stream, Alias, EOFAction, Reposition, Type).
+    '$socket_client_open'(Address, Port, Stream, Alias, EOFAction, Reposition, Type, false).
 
 
 socket_server_open(Addr, ServerSocket) :-

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 9b4a65e7432b9a123b3542ef0da5ac9e2270ff01..88ccb42106ed8f60540e1dbe5b8dbed0e9a29377 100644 (file)
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -4115,7 +4115,7 @@ impl Machine {
 
         let socket_atom = cell_as_atom!(addr);
 
-        let _port = read_heap_cell!(port,
+        let port = read_heap_cell!(port,
             (HeapCellValueTag::Atom, (name, arity)) => {
                 debug_assert_eq!(arity, 0);
                 name
@@ -4132,9 +4132,10 @@ impl Machine {
         );
 
         let socket_addr = if socket_atom == atom!("") {
-            atom!("127.0.0.1")
+            atom!("127.0.0.1:80")
         } else {
-            socket_atom
+            let buffer = format!("{}:{}", socket_atom.as_str(), port.as_str());
+            self.machine_st.atom_tbl.build_with(&buffer)
         };
 
         let alias = self.machine_st.registers[4];