@ -2,6 +2,7 @@
(current-input-port (make-gnu-readline-port))
(gnu-history-install-file-manager (string-append (or (getenv "HOME") ".") "/.csi.history"))
(repl-prompt (lambda () "$ "))
(define (shell-repl)
(let ((x (read)))