From 2d2c8a209ce5430ab4c4e18c7f04535942cf829f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 25 Apr 2019 19:07:03 +0200 Subject: Made none-output print statprof info. --- module/main.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'module/main.scm') 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)))) -- cgit v1.2.3