diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/base.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index 666757e..496997a 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -47,8 +47,10 @@ values." (define (call-with-time-display thunk) "Call THUNK and write to the current output port its duration." (call-with-time thunk - (λ (time . results) - (format #t "~,3f seconds~%" - (+ (time-second time) - (/ (time-nanosecond time) 1e9))) - (apply values results)))) + (λ (time result) + (let ((duration (+ (time-second time) + (/ (time-nanosecond time) 1e9)))) + (format (current-error-port) "evaluate '~A': ~,3f seconds~%" + (assq-ref result #:job-name) + duration) + (acons #:duration duration result))))) |