test/fixtures/nrepl-server.sgl

1(import (sigil nrepl)

2 (sigil fs)

3 (sigil time))

5(define port 57989)

6(define lock-file "/tmp/sigil-mcp-nrepl-57989.lock")

8(when (file-exists? lock-file)

9 (delete-file lock-file))

11(let ((server (nrepl-start port)))

12 (write-file-string lock-file (format "~a" port))

13 (let loop ()

14 (nrepl-process-pending server)

15 (sleep 0.01)

16 (loop)))