diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 19:07:03 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 19:07:03 +0200 |
| commit | 2d2c8a209ce5430ab4c4e18c7f04535942cf829f (patch) | |
| tree | 854496a12f74844c20ad3355a7a0688aebf938cd /module/main.scm | |
| parent | Change how in-date-range? does it's calculation. (diff) | |
| download | calp-2d2c8a209ce5430ab4c4e18c7f04535942cf829f.tar.gz calp-2d2c8a209ce5430ab4c4e18c7f04535942cf829f.tar.xz | |
Made none-output print statprof info.
Diffstat (limited to 'module/main.scm')
| -rwxr-xr-x | module/main.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/main.scm b/module/main.scm index 620e64fd..924a846c 100755 --- a/module/main.scm +++ b/module/main.scm @@ -16,6 +16,7 @@ (output html) (output terminal) + (output none) (ice-9 getopt-long) @@ -57,7 +58,7 @@ (let ((ropt (ornull (option-ref opts '() '()) '("term")))) ((case (string->symbol (car ropt)) - ((none) (compose display list)) + ((none) none-main) ((html) html-main) ((term) terminal-main)) c e ropt)))) |