diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-21 00:20:47 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-21 00:20:47 +0200 |
commit | 69d0eaf0fd63e81a6eb3e2fe2e11a70f86ff6a63 (patch) | |
tree | e971650318c8e2722652cd43ad1e8a5bad866f6d /module/calp/entry-points/benchmark.scm | |
parent | Helpstring for port config. (diff) | |
download | calp-69d0eaf0fd63e81a6eb3e2fe2e11a70f86ff6a63.tar.gz calp-69d0eaf0fd63e81a6eb3e2fe2e11a70f86ff6a63.tar.xz |
Allow multiple benchmark files.
Diffstat (limited to 'module/calp/entry-points/benchmark.scm')
-rw-r--r-- | module/calp/entry-points/benchmark.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/module/calp/entry-points/benchmark.scm b/module/calp/entry-points/benchmark.scm index 0814c44c..8eaf3731 100644 --- a/module/calp/entry-points/benchmark.scm +++ b/module/calp/entry-points/benchmark.scm @@ -27,7 +27,9 @@ (print-arg-help opt-spec) (throw 'return)) - (let ((strm (get-event-set global-event-object))) - (if (option-ref opts 'enable-output #f) - (write (stream->list 1000 strm)) - (stream->list 1000 strm)))) + + (awhen (option-ref opts '() #f) + ((module-ref (resolve-module + `(calp benchmark ,@(map string->symbol it))) + 'run-benchmark))) +) |