diff options
-rw-r--r-- | 092socket.mu | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/092socket.mu b/092socket.mu index 60515b06..0a2bac1d 100644 --- a/092socket.mu +++ b/092socket.mu @@ -49,9 +49,9 @@ scenario write-to-fake-socket [ tested-port-connections:&:@:port-connection <- get *single-port-network, data:offset tested-port-connection:port-connection <- index *tested-port-connections, 0 contents:text <- get tested-port-connection, contents:offset - 10:bool/raw <- equal contents, [x] + 10:@:char/raw <- copy *contents memory-should-contain [ - 10 <- 1 + 10:array:character <- [x] ] ] @@ -61,11 +61,10 @@ def start-writing-socket network:&:local-network, port:num -> sink:&:sink:char, source:&:source:char, sink:&:sink:char <- new-channel 30 { break-if network - socket:num <- $socket 8080/port + socket:num <- $socket port session:num <- $accept socket # TODO Create channel implementation of write-to-socket. - routine-id <- copy 0 - return + return sink, 0/routine-id } # fake network routine-id <- start-running transmit-to-fake-socket network, port, source |