From b1c561f917fa18eb03f309a5c2810b44778ee14c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 23 Jun 2008 13:31:15 +0000 Subject: [PATCH] free_history_entry not available in OS X libreadline svn: r10422 --- collects/readline/mzrl.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/readline/mzrl.ss b/collects/readline/mzrl.ss index c5c0511b72..8d208bc439 100644 --- a/collects/readline/mzrl.ss +++ b/collects/readline/mzrl.ss @@ -73,7 +73,9 @@ (get-ffi-obj "remove_history" libreadline (_fun (i) :: (_int = (hist-idx 'history-delete i #f)) -> _pointer))) (define history-free ; ignore histdata_t return value - (get-ffi-obj "free_history_entry" libreadline (_fun _pointer -> _void))) + (get-ffi-obj "free_history_entry" libreadline (_fun _pointer -> _void) + ;; if not available, just leak + (lambda () void))) (define (history-delete idx) (history-free (history-remove idx)))