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

fix free_history_entry default

Browse Source 
svn: r10551
This commit is contained in:
Matthew Flatt 2008-07-02 01:40:50 +00:00
parent f3b142367d
commit a1c1c7e6df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/readline/mzrl.ss
View File

@ -75,7 +75,7 @@
(define history-free ; ignore histdata_t return value (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, use free ;; if not available, use free
free)) (lambda () free)))
(define (history-delete idx) (define (history-delete idx)
(history-free (history-remove idx))) (history-free (history-remove idx)))