exit-hook never executed

[Olivier Dion]

Hi,

`exit-hook' seems to only be executed when in a REPL.  Is there a way for
it to be executed at the end of a none interactive program?

My intend here is that I have a module that load a foreign extension and
initialize its runtime so that other modules of that extension can be
used.  I then add a hook for finalizing the extension, which is
important to save data.

Here's the snippet:
--8<---------------cut here---------------start------------->8---
(define-module (jami)
  #:use-module (system foreing-library))

(let* ((libjami (load-foreign-library "libguile-jami"))
       (init (foreign-library-function libjami "init"))
       (fini (foreign-library-function libjami "fini")))
  (init)
  (add-hook! exit-hook fini))
--8<---------------cut here---------------end--------------->8---

So I guess the trivial solution would be to ask the user to manually
call the `init' and `fini' procedure before using any procedures of the
extension.

Something like this:
--8<---------------cut here---------------start------------->8---
(define-syntax-rule (with-jami body body* ...)
  (dynamic-wind
    init
    (lambda () body body* ...)
    fini))
--8<---------------cut here---------------end--------------->8---

But it would be nice to a have a hook for finalization like `exit-hook'
that is hidden from the user.

Though?

-- 
Olivier Dion
oldiob.dev