Fix call-with-duration-metric to work with multiple values

2020-12-05 17:49:07 +00:00 · 2020-12-05 17:49:07 +00:00 · fba2005362
commit fba2005362
parent 12d3d9de67
1 changed files with 6 additions and 3 deletions
--- a/prometheus.scm
+++ b/prometheus.scm
@ -355,9 +355,12 @@ The metric with the name @var{metric-name} is fetched from the
               registry
               metric-name)))
         (start-time (current-time)))
-    (let ((result (thunk)))
-      (metric-observe metric (- (current-time) start-time))
-      result)))
+    (call-with-values
+        thunk
+      (lambda results
+        (metric-observe metric (- (current-time) start-time))
+
+        (apply values results)))))

 (define (write-metrics registry port)
  "Write all metrics from the given @var{registry} to @var{port} in