suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

free_history_entry not available in OS X libreadline

Browse Source 
svn: r10422
This commit is contained in:
Matthew Flatt 2008-06-23 13:31:15 +00:00
parent c8509c8390
commit b1c561f917
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/readline/mzrl.ss
View File

@ -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)))