Welcome to the CHICKEN Scheme pasting service

(define (make-netrepl)
  (let ((socket (tcp-listen 1157)))
    (lambda ()
        (when (tcp-accept-ready? socket)
          (let-values (((i o) (tcp-accept socket)))
            (eval (read i))
            (tcp-close socket)
            (set! socket (tcp-listen 1157))
            (display "executed netrepl code\n"))))))