mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
12 lines
264 B
Scheme
12 lines
264 B
Scheme
(import (scheme base) (scheme write) (srfi 106))
|
|
|
|
(define svr (make-server-socket "12345"))
|
|
|
|
(let* ((s (socket-accept svr))
|
|
(data (socket-recv s 1024)))
|
|
(display `("received: " ,(utf8->string data)))
|
|
(newline)
|
|
(socket-close s))
|
|
|
|
(socket-close svr)
|
|
|