free_history_entry not available in OS X libreadline
svn: r10422
This commit is contained in:
parent
c8509c8390
commit
b1c561f917
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user