13 lines
321 B
Scheme
13 lines
321 B
Scheme
|
|
(define client-socket (make-client-socket "127.0.0.1" "3000"))
|
|
;(define client-socket (make-client-socket "/tmp/demo.sock" "3000" *af-unix*))
|
|
|
|
(socket-send client-socket (string->utf8 "Hello from test"))
|
|
|
|
(display "HERE: ")
|
|
(write (utf8->string (socket-recv client-socket 5)))
|
|
(newline)
|
|
|
|
(write client-socket)
|
|
(newline)
|