Ticket #568: client.scm

File client.scm, 155 bytes (added by sjamaan, 13 years ago)

Client code

Line 
1(use tcp)
2
3(define-values (in out) (tcp-connect "localhost" 1234))
4
5(printf "I just read: ~S\n" (read-line in))
6(printf "I just read: ~S\n" (read-line in))