diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 13:03:41 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 13:03:41 +0200 |
commit | 918a56e896c3a96975301a7f1e0fda0c98de29d3 (patch) | |
tree | 3bfd11391f2706882a69b23c63e764cd81e96f21 /module/util | |
parent | Fix server --port flag. (diff) | |
download | calp-918a56e896c3a96975301a7f1e0fda0c98de29d3.tar.gz calp-918a56e896c3a96975301a7f1e0fda0c98de29d3.tar.xz |
Add shutdown-hook.
Diffstat (limited to 'module/util')
-rw-r--r-- | module/util/hooks.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/module/util/hooks.scm b/module/util/hooks.scm new file mode 100644 index 00000000..d4d44ec9 --- /dev/null +++ b/module/util/hooks.scm @@ -0,0 +1,6 @@ +(define-module (util hooks) + :export (shutdown-hook)) + +;; Run before program terminates +(define-once shutdown-hook + (make-hook 0)) |