(module linenoise 
  (linenoise history-add set-history-len!)
  (import chicken scheme)
  (import foreign)
  (use easyffi)

#>!
  #include "linenoise-src.c"
<#

(define history-add linenoiseHistoryAdd)
(define set-history-len! linenoiseHistorySetMaxLen)

)