diff options
-rw-r--r-- | prometheus.scm | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/prometheus.scm b/prometheus.scm index 5c45c8e..5bb42af 100644 --- a/prometheus.scm +++ b/prometheus.scm @@ -424,20 +424,13 @@ The metric with the name @var{metric-name} is fetched from the " (let* ((metric (or (metrics-registry-fetch-metric registry metric-name) - (call-with-blocked-asyncs - (lambda () - (monitor - ;; Check once more in case another thread has created - ;; the metric while this thread was waiting for the - ;; mutex - (or (metrics-registry-fetch-metric registry metric-name) - (make-histogram-metric - registry - metric-name - #:buckets buckets - #:docstring docstring - #:labels labels - #:label-preset-values label-preset-values))))))) + (make-histogram-metric + registry + metric-name + #:buckets buckets + #:docstring docstring + #:labels labels + #:label-preset-values label-preset-values))) (start-time (get-internal-real-time))) (call-with-values thunk |