}
#undef FUNC_NAME
+SCM_DEFINE (scm_clear_history, "clear-history", 0, 0, 0,
+ (),
+ "Clear the history buffer of the readline machinery.")
+#define FUNC_NAME s_scm_clear_history
+{
+ clear_history();
+ return SCM_UNSPECIFIED;
+}
+#undef FUNC_NAME
+
SCM_DEFINE (scm_filename_completion_function, "filename-completion-function", 2, 0, 0,
(SCM text, SCM continuep),
(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