Fix the --repl option

This commit is contained in:
Christopher Baines 2025-03-10 08:27:42 +00:00
parent 8635a5561b
commit f56cae63fc

View file

@ -143,10 +143,7 @@
(let ((opts (parse-options (cdr (program-arguments)))))
(when (assq-ref opts 'repl)
((@@ (ice-9 top-repl) call-with-sigint)
(lambda ()
(with-postgresql-connection-per-thread
"repl"
start-repl)))
start-repl)
(exit 0))
(let ((repl-port (assoc-ref opts 'listen-repl)))