From 6235c6e33b046119e85889b834a16ee484bf5e2b Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 1 Nov 2020 21:17:31 +0000 Subject: [PATCH] Fix call-with-time-logging in (guix-data-service utils) It was just recording 0. --- guix-data-service/utils.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm index 8ad60f9..7741671 100644 --- a/guix-data-service/utils.scm +++ b/guix-data-service/utils.scm @@ -32,14 +32,13 @@ (define (call-with-time-logging action thunk) (simple-format #t "debug: Starting ~A\n" action) - (let-values - ((result - (thunk))) - (let* ((start-time (current-time)) - (time-taken (- (current-time) start-time))) + (let ((start-time (current-time))) + (let-values + ((result (thunk))) + (let ((time-taken (- (current-time) start-time))) (simple-format #t "debug: Finished ~A, took ~A seconds\n" - action time-taken) - (apply values result)))) + action time-taken)) + (apply values result)))) (define-syntax-rule (with-time-logging action exp ...) "Log under NAME the time taken to evaluate EXP."