* readline.c (scm_clear_history): New function.

[bpt/guile.git] / guile-readline / readline.scm

diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm
index c76e51a..f2960fa 100644 (file)
--- a/guile-readline/readline.scm
+++ b/guile-readline/readline.scm
@@ -110,7 +110,9 @@
          (begin
            (do read-history) 
            (set! the-readline-port (make-readline-port))
-           (add-hook! exit-hook (lambda () (do write-history)))))
+           (add-hook! exit-hook (lambda () 
+                                  (do write-history)
+                                  (clear-history)))))
       the-readline-port)))
 
 ;;; The user might try to use readline in his programs.  It then