diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-09 23:47:05 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-09 23:47:05 +0100 |
| commit | 3b8565c33b58196ffe2e3dd8f23a73de57a268f2 (patch) | |
| tree | 9d3526ea9bcc2ba9a7eb797103549baeb3c3ce6c /module/main.scm | |
| parent | Cleanup in HTML chunked main. (diff) | |
| download | calp-3b8565c33b58196ffe2e3dd8f23a73de57a268f2.tar.gz calp-3b8565c33b58196ffe2e3dd8f23a73de57a268f2.tar.xz | |
Sprinkled in some time prints.
Diffstat (limited to 'module/main.scm')
| -rwxr-xr-x | module/main.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/main.scm b/module/main.scm index 15079dc5..bb3fa041 100755 --- a/module/main.scm +++ b/module/main.scm @@ -13,6 +13,7 @@ exec guile -e main -s $0 "$@" (util) (util io) + (util time) ((entry-points html) :prefix html-) ((entry-points terminal) :prefix terminal-) @@ -84,6 +85,7 @@ exec guile -e main -s $0 "$@" (use-modules (system vm frame)) (define (main args) + (report-time! "Program start") (with-throw-handler #t (lambda () (wrapped-main args)) (lambda (err . args) |