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/main.scm | |
parent | Fix server --port flag. (diff) | |
download | calp-918a56e896c3a96975301a7f1e0fda0c98de29d3.tar.gz calp-918a56e896c3a96975301a7f1e0fda0c98de29d3.tar.xz |
Add shutdown-hook.
Diffstat (limited to '')
-rwxr-xr-x | module/main.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/main.scm b/module/main.scm index 11b76d5b..82caf00d 100755 --- a/module/main.scm +++ b/module/main.scm @@ -15,6 +15,7 @@ (util time) (util app) (util config) + ((util hooks) :select (shutdown-hook)) ((entry-points html) :prefix html-) ((entry-points terminal) :prefix terminal-) @@ -97,7 +98,10 @@ (report-time! "Program start") ;; ((@ (util config) print-configuration-documentation)) (with-throw-handler #t - (lambda () (wrapped-main args)) + (lambda () (dynamic-wind (lambda () 'noop) + (lambda () (wrapped-main args)) + (lambda () (run-hook shutdown-hook)) + )) (lambda (err . args) (define stack (make-stack #t)) (format |