From e75be3a6cba8e3a92fd69a75d71452b04a399eee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 30 Dec 2019 15:52:35 +0100 Subject: Add simple benchmark main. --- module/main.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'module/main.scm') diff --git a/module/main.scm b/module/main.scm index 4eddeb14..92df5e20 100755 --- a/module/main.scm +++ b/module/main.scm @@ -15,12 +15,13 @@ exec guile -e main -s $0 "$@" (util) (util io) - ((entry-points html) :prefix html-) - ((entry-points terminal) :prefix terminal-) - ((entry-points import) :prefix import-) - ((entry-points text) :prefix text-) - ((entry-points info) :prefix info-) - ((entry-points ical) :prefix ical-) + ((entry-points html) :prefix html-) + ((entry-points terminal) :prefix terminal-) + ((entry-points import) :prefix import-) + ((entry-points text) :prefix text-) + ((entry-points info) :prefix info-) + ((entry-points ical) :prefix ical-) + ((entry-points benchmark) :prefix benchmark-) ((entry-points server) :prefix server-) @@ -64,6 +65,7 @@ exec guile -e main -s $0 "$@" ((info) info-main) ((ical) ical-main) ((server) server-main) + ((benchmark) benchmark-main) (else => (lambda (s) (format (current-error-port) "Unsupported mode of operation: ~a~%" -- cgit v1.2.3