diff options
Diffstat (limited to 'module/calp/entry-points/benchmark.scm')
| -rw-r--r-- | module/calp/entry-points/benchmark.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/module/calp/entry-points/benchmark.scm b/module/calp/entry-points/benchmark.scm index 8eaf3731..7706f6f0 100644 --- a/module/calp/entry-points/benchmark.scm +++ b/module/calp/entry-points/benchmark.scm @@ -28,8 +28,9 @@ (throw 'return)) - (awhen (option-ref opts '() #f) - ((module-ref (resolve-module - `(calp benchmark ,@(map string->symbol it))) - 'run-benchmark))) -) + (let ((opt (option-ref opts '() #f))) + (if (null? opt) + (print-arg-help opt-spec) + ((module-ref (resolve-module + `(calp benchmark ,@(map string->symbol opt))) + 'run-benchmark))))) |