;;; server.sld
(define-library (my-server)
  (import (scheme base)
          (tcp)
          (tcp-server)
          (only (extras) printf)
          #;(only (utils) read-all))
  (include "impl")
)



;;; impl.scm
(define (tcp-server-eventloop)
  ((make-tcp-server
    (tcp-listen 8888)
    (lambda ()
      (let ((msg (read-line)))
        (printf "got: ~A~%" msg))))
   #t))

(tcp-server-eventloop)



;;; to run:
$ csi -R r7rs -s server.sld