comparison src/scheme/readline.scm @ 1:5df24c91468d

Oh my what a mess.

 ;;; editting, history, and completion for jscheme.
 
 ; redirect input to readline reader
 ;(define (set-input-port port) (set! jsint.Scheme.input$ port))
 
-(define (readline-reader prompt) 
-	(org.gnu.readline.ReadlineReader. prompt
+(define jscheme-history ".jscheme_history")
+(define (readline-reader prompt)
+	(org.gnu.readline.ReadlineReader. prompt (java.io.File. jscheme-history)
 		org.gnu.readline.ReadlineLibrary.GnuReadline$))
 
 (org.gnu.readline.Readline.initReadline "jscheme")
 (org.gnu.readline.Readline.readInitFile "/Users/samer/.inputrc")
 (set! current-readline-reader (readline-reader ":"))
 (.setInput (jsint.Scheme.currentEvaluator) (jsint.InputPort. current-readline-reader))
 (define (set-prompt prompt) (.setPrompt current-readline-reader prompt))
 
-		
+
 ; this seems to stop terminal getting confused after exit
 (.addShutdownHook (Runtime.getRuntime)
-	(Thread. (lambda () 
+	(Thread. (lambda ()
 		(display "cleaning up readline.\n")
+    (org.gnu.readline.Readline.writeHistoryFile jscheme-history)
 		(org.gnu.readline.Readline.cleanup))))
-		
+
 
 ; enable completion by looking up words in jscheme's symbol table
 (org.gnu.readline.Readline.setCompleter (samer.silk.SilkCompleter.))
-(set-prompt ">")