source: project/release/4/tcp-server/tcpservertest.scm @ 12355

Last change on this file since 12355 was 12355, checked in by felix winkelmann, 13 years ago

importing rev. 12354 in r4 branch

File size: 166 bytes
Line 
1(use tcp-server extras posix)
2
3((make-tcp-server 
4  (tcp-listen 6502) 
5  (lambda () 
6    (printf "~A: ~A~%" (read-line) (seconds->string (current-seconds))) ) )
7 #t)
Note: See TracBrowser for help on using the repository browser.