Added GNU readline.

14 years ago · 4804d6e1e4
parent da4fc7f5d2
commit 4804d6e1e4
1 changed files with 4 additions and 2 deletions
--- a/shell.scm
+++ b/shell.scm
@ -1,4 +1,7 @@
-(use shell)
+(use shell readline regex)
+
+(current-input-port (make-gnu-readline-port))
+(gnu-history-install-file-manager (string-append (or (getenv "HOME") ".") "/.csi.history"))

 (define (shell-repl)
  (let ((x (read)))
@ -6,7 +9,6 @@
        #t
        (begin (execute (list x))
               (newline)
-               (display "#;> ")
               (shell-repl)))))

 (shell-repl)