| … | … | @@ -30,6 +30,8 @@ |
| 30 | 30 | (connect sock AF_INET INADDR_LOOPBACK port) |
| 31 | 31 | (display data sock) |
| 32 | 32 | (force-output sock) |
| 33 | ;; Shutdown write side to signal we're done sending | |
| 34 | (shutdown sock 1) | |
| 33 | 35 | (let loop ((result "")) |
| 34 | 36 | (let ((line (read-line sock))) |
| 35 | 37 | (if (eof-object? line) |