fix free_history_entry default

svn: r10551
2008-07-02 01:40:50 +00:00 · 2008-07-02 01:40:50 +00:00 · a1c1c7e6df
commit a1c1c7e6df
parent f3b142367d
1 changed files with 1 additions and 1 deletions
--- a/collects/readline/mzrl.ss
+++ b/collects/readline/mzrl.ss
@ -75,7 +75,7 @@
 (define history-free ; ignore histdata_t return value
  (get-ffi-obj "free_history_entry" libreadline (_fun _pointer -> _void)
               ;; if not available, use free
-               free))
+               (lambda () free)))

 (define (history-delete idx)
  (history-free (history-remove idx)))