Anonymous user
Echo server: Difference between revisions
m
Ol: removed deprecated function call
(→{{header|Kotlin}}: Unbloat) |
m (Ol: removed deprecated function call) |
||
Line 1,606:
=={{header|Ol}}==
<lang scheme>
(define (timestamp) (syscall 201 "%c"))
Line 1,645 ⟶ 1,644:
(let ((fd (syscall 43 socket))) ; accept
(fork (on-accept (syscall 51 fd) fd))))
(
(loop))))
| |||