(use-modules (system repl server))

(let ((socket "/tmp/s1"))
  (call-with-new-thread
   (lambda ()
     (dynamic-wind
       (const #t)
       (lambda ()
         (run-server (make-unix-domain-server-socket #:path socket)))
       (lambda ()
         (false-if-exception (delete-file socket)))))))